朝花朝拾

摘要： For example, if you have the some enum typeTyourEnumType = (One, Two, Three, Four, Five, Six, Seven, Eight, Nine, Ten)and you want in run-time to get ... 阅读全文

摘要： Second example: same form with listview and two buttons:// Will failprocedure TForm1.AddString(Var S : String);beginwith form1.listview1 do beginif (F... 阅读全文

摘要： ADO多线程数据库查询通常会出现3个问题：1、CoInitialize 没有调用 （CoInitialize was not called）；所以，在使用任何dbGo对象前，必须手 调用CoInitialize和CoUninitialize。调用CoInitialize失败会产生"CoInitial... 阅读全文

摘要： function TCFADODBStorage.OpenConnection: Boolean; //线程里打开ADOConnection,在XP下切换输入法程序会死掉 //原因:ADO自动创建一个ADODB.AsyncEventMessenger窗口,然后会有一个对应的IME窗口,但线程里没... 阅读全文

摘要： →读某行某列的操作：Edit1.Text := listview1.Items[i].Caption; //读第i行第1列Edit2.Text := listview1.Items[i].SubItems.strings[0]; //读第i行第2列Edit3.Text := listview1.It... 阅读全文

摘要： Delphi ListView快速操作通用实现众所周知，Delphi ListView类直接进行Add、Update、Delete操作的速度是比较慢的，尤其是当数据量较大时，比如数据量达到5000、10000、50000时，速度真是可以说是“慢得惊人”。其实快速操作的方法非常简单，就当大家都知道了。... 阅读全文

摘要： CTreeCtrl是在OnNMCustomdraw中自绘的，不要设定其他属性 CListCtrl是在DrawItem中自绘的，要设定属性LVS_OWNERDRAWFIXED|LVS_REPORT CButton是在DrawItem中自绘的，要设定属性BS_OWNERDRAW CMenu是在... 阅读全文