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