懒人代码
ExtractFileDrive、ExtractFilePath、ExtractFileDir、ExtractFileName、ExtractFileExt、ExtractRelativePath、ExtractShortPathName
ExtractFileDrive ：返回完整文件名中的驱动器，"C:" ExtractFilePath：返回完整文件名中的路径，最后带/”，"C:\test\" ExtractFileDi...
DLL动态调用函 //获取dll 文件路径
//公用单元函数 function dllform(dllname, funcname: string): DWORD; // DLL动态调用函 //获取dll 文件路径 var myinifile: Tinifile; DllHa...
DBGridEh1 but1_Click /// 导出数据xls 到指定文件夹_修改
function DBGridEhToXlsx(fileneme: string; controlneme: TDBGridEh; SaveDialogname: TSaveDialog): string; /// 导出数据xls 到指定文...
[转]delphi应用SynEdit完美实现SQL语法高亮
SynEdit是一个免费的开源语法高亮控件，支持delphi 3-2006，下载地址为： http://sourceforge.net/projects/synedit/files/latest/download, 安装方法参考delphi...
DBGridEh1 but1_Click /// 导出数据xls 到指定文件夹
but1_Click /// 导出数据xls 到指定文件夹 var Path: string; begin GetDir(0, Path); SaveDialog1.FileName := '生产排程表_'+ FormatDat...
DBGridEh1.SortMarkingChanged //字段排序
DBGridEh1.SortMarkingChanged //字段排序 procedure TfrmLRPT01.DBGridEh1SortMarkingChanged(Sender: TObject); var i :Integer; ...
DBGridEh1.ColWidthsChanged //双击单列自动适应列宽
DBGridEh1.ColWidthsChanged//添加如下代码 //双击单列自动适应列宽 if not Assigned(FilterControlList) then Exit; Indent := Indicato...
Delphi ADOQuery的速度优化
今天终于把纠缠了几天的问题改完了，说到底只是一个很小的问题，就是ADOQuery的一个小属性 把控件DBGridE...
DBGridEh1.DrawColumnCell //选择整行变色
DBGridEh1.DrawColumnCell //添加如下代码 //选择整行变色 begin if gdSelected in State then DBGridEh1.Canvas.Brush.Color := $00F2DCB...
Form.Create //最小化程序到任务栏
Form.Create //添加如下代码 begin //最小化程序到任务栏 SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle,GWL_EXSTYLE) or WS_EX_A...
DBGridEh2.DrawColumnCell //选择整行变色
DBGridEh2.DrawColumnCell //添加如下代码 //选择整行变色 begin if gdSelected in State then DBGridEh2.Canvas.Brush.Color := $00F2DCB7...
frm3_qry1.AfterOpen //自动适应表头或内容列
frm3_qry1.AfterOpen//添加如下代码 //自动适应表头或内容列 var i: Integer; begin inherited; for i := 0 to DBGridEh1.Columns.Count - ...