xcontrols.txt

我自己用的Delphi函数单元 具体说明见打包文件的HELP目录下面

unit xControls;

//控件及所属子控件使能或禁止。
procedure EnableControl(AControl: TControl; Enable: Boolean);

//控件所属子控件使能或禁止。
procedure EnableChildControls(AControl: TControl; Enable: Boolean);

//某类控件使能或禁止。如所有的TEdit禁止使用。
procedure EnableClassControl(AControl: TControl; Enable: Boolean; ControlClass: TControlClass);

//选择TPageControl的某个页面，Animated = True时从当前页一页页地翻到指定页。
procedure SelectPageIndex(const PC: TPageControl; const iIndex: Integer; const Animated: Boolean);

//若TPageControl组件页面动态隐藏或显示。必须小心若被隐藏的页面正是当前页，
//则TPageControl陷入没有当前页面的情况，此时须切换一下可视页，隐藏页面后
//调用本函数可保证不出现此情况。
procedure MakeSureTabVisible(const PC: TPageControl);

//将TreeView组件节点内容从文件装入。
procedure LoadTreeViewFromTextFile(Nodes: TTreeNodes; Filename: string);

//将TreeView组件节点内容保存到文本文件。
procedure SaveTreeViewToTextFile(Nodes: TTreeNodes; Filename: string);