Developer Express 7 想做像office2007那样界面. 问题:dxBarManager1 里面添加了cxBarEditItem1 这是个文本框, 运行可以输入内容,但是当焦点失去时,刚刚输入的内容没了. 只...
ExtractFileDrive :返回完整文件名中的驱动器,"C:" ExtractFilePath:返回完整文件名中的路径,最后带/”,"C:\test\" ExtractFileDi...
//公用单元函数 function dllform(dllname, funcname: string): DWORD; // DLL动态调用函 //获取dll 文件路径 var myinifile: Tinifile; DllHa...
function DBGridEhToXlsx(fileneme: string; controlneme: TDBGridEh; SaveDialogname: TSaveDialog): string; /// 导出数据xls 到指定文...
SynEdit是一个免费的开源语法高亮控件,支持delphi 3-2006,下载地址为: http://sourceforge.net/projects/synedit/files/latest/download, 安装方法参考delphi...
but1_Click /// 导出数据xls 到指定文件夹 var Path: string; begin GetDir(0, Path); SaveDialog1.FileName := '生产排程表_'+ FormatDat...
DBGridEh1.SortMarkingChanged //字段排序 procedure TfrmLRPT01.DBGridEh1SortMarkingChanged(Sender: TObject); var i :Integer; ...
DBGridEh1.ColWidthsChanged//添加如下代码 //双击单列自动适应列宽 if not Assigned(FilterControlList) then Exit; Indent := Indicato...
今天终于把纠缠了几天的问题改完了,说到底只是一个很小的问题,就是ADOQuery的一个小属性 把控件DBGridE...
DBGridEh1.DrawColumnCell //添加如下代码 //选择整行变色 begin if gdSelected in State then DBGridEh1.Canvas.Brush.Color := $00F2DCB...
Form.Create //添加如下代码 begin //最小化程序到任务栏 SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle,GWL_EXSTYLE) or WS_EX_A...
DBGridEh2.DrawColumnCell //添加如下代码 //选择整行变色 begin if gdSelected in State then DBGridEh2.Canvas.Brush.Color := $00F2DCB7...