摘要:
保留根节点 var I : integer; begin for I := TreeView1.Items.Count -1 downto 1 do TreeView1.Items.Delete(TreeView1.Items[I]); end; 如果不保留: TreeView1.Items.Cle 阅读全文
摘要:
active control 是当前窗口获得焦点的控件。 WM_NEXTDLGCTL是一个消息。 perform(WM_NEXTDLGCTL,0,0)是把当前焦点移到下一个控件。 if not (active control is TDBGrid) then 窗口具有active control 属 阅读全文