Delphi
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,....等等, 在主程序里写两...
delphi编程创建桌面快捷方式
uses ActiveX,ComObj,StdCtrls,ShlObj,FileCtrl; procedure TForm1.N2Click(Sender: TObject); var tmpObject : IUnknown; t...
主程序与DLL之间的全局变量
1. 在Project1.Form1 上拖一 Button 整个 Unit1 源码如下 unit Unit1; interface uses Windows, Mess...
DELPHI 调用DLL文件中FORM的调用[2]
主程序： unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, Sy...
StrUtils 中的 Ansi 字符串函数DEMO
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System....
Delphi 中的字符串函- SysUtils 中的 Ansi 字符串函数（2
//对比字符串是不是一: AnsiSameStr、AnsiSameText var ss,s: AnsiString; b: Boolean; begin ss := 'abc'; s...
Delphi 中的字符串函- StrUtils 中的 Ansi 字符串函数（1
//从左右两端提取指定数目的字符: AnsiLeftStr、AnsiRightStr var ss,s: AnsiString; begin ss := 'abcdefg'; s := AnsiL...
TcxCheckComboBoxItems.Add
TcxCheckComboBoxItems.Add TcxCheckComboBoxItems See Also Creates a new item and adds it to the items collection. functi...