Jack·高峰 的文章
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 - ...
DBGridEh1.GetCellParams // 横向斑马
DBGridEh1.GetCellParams //添加如下代码 // 横向斑马 begin if DBGridEh1.SumList.RecNo mod 2 = 1 then Background := $00ECFFFB...
温故Delphi之TreeView
TreeView是Delphi中使用频率比较高的一个控件，虽然使用次数很多，但总结不够。借着这次做GDW原型的机会总结一下，写的过程中也会参考网上的博文 TTreeView、TTreeNodes和TTreeNode ...
delphi执行查询语句时的进度条怎么
procedure TForm1.FormCreate(Sender: TObject); begin ADOQuery1.ExecuteOptions := ;//设为...
主程序与DLL之间的全局变量问题
有几个朋友经常向我问题在DLL中怎么共用一个全局变量。比如像用户登陆后的用户(UserName)... 其实这个问题很简单。下面我把我的做法写出来大家一起分享 把共享的变量放在主程序里:UserName,....等等, 在主程序里写两...