-
DBGridEh1.SortMarkingChanged //字段排序
DBGridEh1.SortMarkingChanged//字段排序procedureTfrmLRPT01.DBGridEh1SortMarkingChanged(Sender:TObject);vari:Integer;s:String;functionDeleteStr(str:String;sunstr:String):String;... -
DBGridEh1.ColWidthsChanged //双击单列自动适应列宽
DBGridEh1.ColWidthsChanged//添加如下代码//双击单列自动适应列宽ifnotAssigned(FilterControlList)thenExit;Indent:=IndicatorWidth+2;fori:=0toDBGridEh1.Columns.Count-1dobegink... -
Delphi ADOQuery的速度优化
今天终于把纠缠了几天的问题改完了，说到底只是一个很小的问题，就是ADOQuery的一个小属性 把控件DBGridEh的一列的checkbox设为true，将其绑定DataSourceA和DOQuery。用Button添加了一个事件，用来取消对checkbox的操作：ADOQuery.... -
DBGridEh1.DrawColumnCell //选择整行变色
DBGridEh1.DrawColumnCell//添加如下代码//选择整行变色beginifgdSelectedinStatethenDBGridEh1.Canvas.Brush.Color:=$00F2DCB7;DBGridEh1.DefaultDrawColumnCell(Rect,DataCol,Column,State);end; -
Form.Create //最小化程序到任务栏
Form.Create//添加如下代码begin//最小化程序到任务栏SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle,GWL_EXSTYLE)orWS_EX_APPWINDOW);end; -
DBGridEh2.DrawColumnCell //选择整行变色
DBGridEh2.DrawColumnCell//添加如下代码//选择整行变色beginifgdSelectedinStatethenDBGridEh2.Canvas.Brush.Color:=$00F2DCB7;DBGridEh2.DefaultDrawColumnCell(Rect,DataCol,Column,State);end; -
frm3_qry1.AfterOpen //自动适应表头或内容列
frm3_qry1.AfterOpen//添加如下代码//自动适应表头或内容列vari:Integer;begininherited;fori:=0toDBGridEh1.Columns.Count-1dobeginDBGridEh1.Columns.OptimizeWidth;DBGridEh1.Col... -
DBGridEh1.GetCellParams // 横向斑马
DBGridEh1.GetCellParams//添加如下代码//横向斑马beginifDBGridEh1.SumList.RecNomod2=1thenBackground:=$00ECFFFBelseBackground:=$00E7F9CE;end; -
温故Delphi之TreeView
TreeView是Delphi中使用频率比较高的一个控件，虽然使用次数很多，但总结不够。借着这次做GDW原型的机会总结一下，写的过程中也会参考网上的博文TTreeView、TTreeNodes和TTreeNodeTTreeView由节点构成，建树通过对TreeView.items属性进行操作。Items是一个TTreeNodes对象，这是一个TTreeNode集... -
delphi执行查询语句时的进度条怎么
procedureTForm1.FormCreate(Sender:TObject); begin ADOQuery1.ExecuteOptions:=;//设为异步读取 end; //ADOQuery的OnFetchProgress事件 ... -
主程序与DLL之间的全局变量问题
有几个朋友经常向我问题在DLL中怎么共用一个全局变量。比如像用户登陆后的用户(UserName)...其实这个问题很简单。下面我把我的做法写出来大家一起分享把共享的变量放在主程序里:UserName,....等等,在主程序里写两个函数FunctionCurUserName():PChar;beginResult:=pchar(UserName);en... -
delphi编程创建桌面快捷方式
usesActiveX,ComObj,StdCtrls,ShlObj,FileCtrl;procedureTForm1.N2Click(Sender:TObject);vartmpObject:IUnknown;tmpSLink:IShellLink;tmpPFile:IPersistFile;PIDL:PItemIDList;Sta... -
主程序与DLL之间的全局变量
1.在Project1.Form1上拖一 Button整个Unit1源码如下unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,IDataModule,StdCt...