引言： 若希望在TNotebook或TPageControl组件的所有页面上显示某些组件（例如浏览数据库的列表框）时，不需要在在每个页面上重复设置这些组件，只需要首先建立它们，然后再添加TNotebook或TPageControl控件，调整它们的大小和位置，用鼠标右键单击TNotebook或TPageC...
摘要：var
ihandlecount: integer;
plist: array[1..nhkl_list] of hkl;
szimename: array[0..254] of char;
i: integer;
sfound: string;
begin
lstcomposition.items.clear;
ihandlecount := getkeyboard......
摘要：其实把属性编辑器等引用designeditors的部分，如属性编辑器的声明、实现以及属性编辑器的注册另写一个单元就行了。
下面是一个简单的例子
unit nwdicttreeviewreg;
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
comc......
在TNotebook组件的所有页面上显示组件若希望在tnotebook或tpagecontrol组件的所有页面上显示某些组件（例如浏览数据库的列表框）时,不需要在在每个页面上重复设置这些组件,只需要首先建立它们,然后再添加tnotebook或tpagecontrol控件,调整它们的大小与位置,用鼠标右键单击tnotebook或tpagecontrol组件,单击弹出菜单中的“send to back”属性,这时最先添加的控件就显示在tnotebook或tpagecontrol控件之上,按通常的方法添加其他组件到tnotebook或tpagecontrol组件即可.
【程序编程相关:
【我爱DELPHI，我学XML】DAY 】 【推荐阅读:
利用极品五笔刷QB程序原代码
】
此方法只对控件有效,所以tdbtext需用tdbedit代替,并设置其为只读,边界属性设置为空,ctrl3d属性设置为假.同理,需要用tpanel组件代替tlabel组件. 【扩展信息:
希望我不要下定决心放弃borland与d】
...
下一页 摘要：将以下代码保存为multinst.pas, 然后在任何project的
main form中uses multinst, 就可以完善防止程序的多个
实例同时运行, 特与大家共享.
unit multinst;
interface
const
mi_querywindowhandle = 1;
mi_respondwindowhandle = 2;
mi_error_none......
