//控件单元.
【程序编程相关:Delphi字符串函数大全 】{* 【推荐阅读:delphi-object pascal】
【扩展信息:qq魔法表情原理,解密及其他 】单元说明: 创建模式窗口,与非模式窗口的类,保证非模式窗口只创建一次.作者 : 笔名:易 一 英文名:yeeyee e-mail : jane1437@163.com 创建时间: 2005年5月20日 及最后修改时间: 修改人修改时间及: 修改说明: 版权声明: 版权所有,转载请注明本人邮箱与笔名. *} unit showformclass;interface
uses
sysutils, classes,dialogs, forms;type
tshowformclass = class(tcomponent) private { private declarations } //保存要创建的窗体的类名 ffrmname:string; //判断窗体是否存在. function isformexist:boolean; //得到窗体. function getexistform:tform; //创建一个类 function createaclass(const aclassname: string): tform; protected { protected declarations } public { public declarations } constructor create(aowner: tcomponent); virtual; ... 下一页