摘要：
保留根节点 var I : integer; begin for I := TreeView1.Items.Count -1 downto 1 do TreeView1.Items.Delete(TreeView1.Items[I]); end; 如果不保留： TreeView1.Items.Cle 阅读全文
摘要：
procedure TForm11.cxbtn1Click(Sender: TObject);var T: DWORD;begin T := GetTickCount; MakeTree(kbmMemTable1, cbb1); lbl1.Caption := Format('MakeTree所用时 阅读全文
摘要：
取TcxLookupComboBox下拉列表中各项的内容 Properties.DataController.Values包含了所有内容,如果要取得当前选择行的内容,用以下代码 阅读全文
摘要：
active control 是当前窗口获得焦点的控件。 WM_NEXTDLGCTL是一个消息。 perform(WM_NEXTDLGCTL,0,0)是把当前焦点移到下一个控件。 if not (active control is TDBGrid) then 窗口具有active control 属 阅读全文
摘要：
把cxGrid的view的datacontroller属性下的datamodecontroller下的GridMode设置为true 在设置GridModeBufferCount为每页显示的行数就可以了 不出现滚动主要是注意控制界面宽度,然后设置GridModeBufferCount为适当值就可以了 阅读全文
摘要：
mp1: TMediaPlayer; mp1.FileName := ExtractFilePath(Application.Exename)+'凉凉.mp3'; mp1.Open; mp1.Play; 可参考 http://www.cnblogs.com/pchmonster/archive/20 阅读全文
摘要：
ExpandFileName() 返回文件的全路径(含驱动器、路径) ExtractFileExt() 从文件名中抽取扩展名 ExtractFileName() 从文件名中抽取不含路径的文件名 ExtractFilePath() 从文件名中抽取路径名 ExtractFileDir() 从文件名中抽取 阅读全文
摘要：
MySQL安装目录下lib子目录中的libmysql.dll文件拷贝至c:/windows/system32（系统不在c盘的请转至对应目录），重新启动Delphi XE，按照上面的步骤测试连接，你会发现还是出现无法正确初始化数据库驱动的问题。最大的弯路就是使用的是安装版的MySQL。你只要使用解压版 阅读全文
摘要：
procedure TForm6.btn8Click(Sender: TObject);begin //通过kbmmemsql查询 ds1.DataSet := kbmsql1; cxGrid1DBTableView1.DataController.DataSource := ds1; try kb 阅读全文
摘要：
procedure TForm6.btn3Click(Sender: TObject);var fld_Id:TIntegerField; fld_Value:TStringField; fld_Time:TDateTimeField;begin //更新 cxGrid1DBTableView1.D 阅读全文