ctrl+shift+向上  跳到单元过程声明
ctrl+shift+向下  跳到单元过程实现
delphi 如何返回指定执行文件的绝对路径
extractFilePath(ParamStr(0))   只可以得到当前程序的路径
17,405 22:26 2007-10-5
F12 设计窗口与单元文件之间切换.
ctrl+F "Find"对话框
ctrl+R "Find&Replace"对话框
ctrl+E 键入"pr"高亮显示
alt+G 检查错误
alt+s+y 查找一个类的所有信息.
"To-Do List" 给工作进度上附加注记.
 Priority: 优先值
 Owner:  所有者的名字
 Category: 输入类别
按键'Alt+V+L',可看到"TO-Do list"
按键ctrl+shift+t,出现"Add To-Do Item"
-o表示所有者,-C类别
{todo 1 -ohezhenfei -ctable :工作启动 20060629}
// todo -omarco : add creation code
 //TODO -ohezhenfei : 工作启动
 //TODO 3 -ohezhenfei : 工作启动2
 
编译器消息窗口切换:
alt+Page Down和alt+Page UP
开前就后启动程序服务设置
d:\possystem\server\scktsrvr.exe /install
ocx控件注册及卸载：
regsvr32 mscom32.ocx
regsvr32 /u mscom32.ocx
删除上面启动的服务：
1 打开管理中 的服务 
2 禁用掉软件卸载后残留的服务
3 sc delete+服务名称

多行同时缩进/反缩进
ctrl+shift+u
ctrl+shift+i
 
 

如编译器有错误产生,可以通过View>Additional Message Info命令,提供修正建议.
(针对新加入开发人员将一些有错误的描述放入到一个窗体中,msginfo70.ini文件在delphi的bin文件夹
下)

"带选项卡的记事本"切换,ctrl+tab,ctrl+shift+tab(反向)
代码编辑器中按Ctrl并把鼠标移动到标识符上可以激活链接,查看VCL源代码.按Alt+前/后键,可以翻页
类的自动生成:Ctrl+shift+C
代码完成(即简写提示):alt+空格
代码模板:Ctrl+J
书签:ctrl+shift+0-9,回到书签:ctrl+0-9
ctrl+E :查询定位
Ctrl+shift+I:缩进多行代码
ctrl+O+U:切换所选择的代码的大小写
ctrl+K+E:转为小写
ctrl+K+F:转为大写
ctrl+shift+R:开始记录一个宏.
ctrl+shift+P:快捷执行这个宏.
alt+拖动鼠标,可以选择矩形区域.
ctrl+shift+b: 项目浏览器
 
private\protected\public
private:在声明类的单元外这个类不能被访问.
protected:protected元素只能被当前类和它的子类访问.(只有同一个单元的类、子类和任何代码可以
访问。)
public:可以被程序代码中的任意部分访问。
override: 覆盖(改写)
virtual: 虚拟方法
TmyObject = class(TObject) 表示继承TObject类
VMT : 虚拟方法表
Published:
Overload :重载
 ClientDataSet1
open与active的区别在于,open有数据集返回 
open与 Execute;的区别在于,Execute没有数据集返回

设置为“窗体总在最前”  
  SetWindowPos(Self.Handle,   HWND_TOPMOST,   Self.Left,   Self.Top,   Self.Width,  
Self.Height,   SWP_NOACTIVATE   or   SWP_SHOWWINDOW)  
  取消  
  SetWindowPos(Self.Handle,   HWND_NOTOPMOST,   Self.Left,   Self.Top,   Self.Width,  
Self.Height,   SWP_NOACTIVATE   or   SWP_SHOWWINDOW);  
 
DBgridEh标题排序
给你一个函数：  
  procedure   GridTitleBtnClick(Sender:   TObject;   ACol:   Integer;   Column:  
TColumnEh);  
  begin  
      {   报表模板   点击标题自动排序   }  
      if   (Sender   as   TDBGridEh).DataSource.DataSet.Active   then  
      begin  
          (Sender   as   TDBGridEh).DataSource.DataSet.DisableControls;  
          try  
              if   Column.Title.SortMarker   =   smDownEh   then  
                  TADOQuery((Sender   as   TDBGridEh).DataSource.DataSet).Sort  
:=Column.FieldName  
              else   TADOQuery((Sender   as   TDBGridEh).DataSource.DataSet).Sort  
:=Column.FieldName   +'   DESC';  
          finally  
              (Sender   as   TDBGridEh).DataSource.DataSet.EnableControls;  
          end;  
      end;  
  end;  
   
  //调用时  
  procedure   Tfrom1.DBGridEh1TitleBtnClick(Sender:   TObject;   ACol:   Integer;  
      Column:   TColumnEh);  
  begin  
  //     inherited;  
      GridTitleBtnClick(Sender,   ACol,   Column);  
  end;