宝兰 - 博客园

摘要： {$APPTYPE CONSOLE} uses SysUtils, ActiveX, ComObj, Variants; function ListDrives : string; var FSWbemLocator : OLEVariant; objWMIService : OLEVariant; colDiskDrives : OLEVariant; ... 阅读全文

posted @ 2016-03-19 08:54 宝兰阅读(908) 评论(0) 推荐(0)

2016年3月16日

TDBGridEh的搜索面板 TDBGridSearchPanel

摘要： TCustomDBGridEh.Create FSearchPanelControl := TDBGridSearchPanelControlEh.Create(Self); //这里，创建的构造函数是另外一个类 with FSearchPanelControl do begin Parent := Self; Name := 'FSearchPanelCont... 阅读全文

posted @ 2016-03-16 19:39 宝兰阅读(946) 评论(0) 推荐(0)

2016年3月8日

TADOTable 用过滤事件后记录数据和记录的内容

摘要：用过滤事件，过滤后 ADOTbTrade.RecordCount 是总数，但是，记录内容是过滤后的 ADOTbTrade.First; while not ADOTbTrade.Eof do begin Log( ADOTbTradeid.AsString ); ADOTbTrade.Next 阅读全文

posted @ 2016-03-08 10:10 宝兰阅读(185) 评论(0) 推荐(0)

2016年3月3日

SelectedRows.CurrentRowSelected 和 DeleteItem

摘要： procedure TBMListEh.SetCurrentRowSelected(Value: Boolean); var Index: Integer; Current: TUniBookmarkEh; begin Current := CurrentRow; if Find(Current, 阅读全文

posted @ 2016-03-03 08:59 宝兰阅读(595) 评论(0) 推荐(0)

2016年2月27日

Delphi的TListView控件拖放选定行操作

摘要： http://www.tansoo.cn/?p=401 Delphi的TListView控件拖放选定行操作的例子，效果图如下：TListView控件拖动选定行到指定位置具体实现步骤：一、新建一个Delphi工程，在窗体上放置一个TListView控件（在Win32面板），设置ListView1的阅读全文

posted @ 2016-02-27 08:21 宝兰阅读(837) 评论(0) 推荐(0)

公告