在吗?问个问题啊!
窗体的动态生成!
比如我有一个主窗体,上面有六个按钮,分别代表六个系统模块吧!
这六个就有六个窗体吧!
六个模块下又细分了许多小窗体模块!
这样该怎么去设计呢!
我希望除那些窗体都动态创建呢!
我该怎么设计呢???????????????????????
窗体的动态生成!
比如我有一个主窗体,上面有六个按钮,分别代表六个系统模块吧!
这六个就有六个窗体吧!
六个模块下又细分了许多小窗体模块!
这样该怎么去设计呢!
我希望除那些窗体都动态创建呢!
我该怎么设计呢???????????????????????
解决方案 »
- 各位老师,如何利用 Table1 的Lookup 方法查询表中的多条记录?
- TListBox如何设置不同行不同颜色
- 这样退出线程正确吗?当我创建了3个线程时,执行完退出线程的代码后,为什么只退出了一个线程,还有两个没有退出?
- 在DELPHI中写SQL的计算公式不对呀.
- 收集ACTIVEX DLL代码!!哪们有好的代码,能不能贡献出来,让大家学习学习!!贴着有分!
- 我打算近一段去深圳了,希望了解一下情况!十分感激!
- 在线等待。
- 大家能不能帮我测试一上,在windows2000pro 下 整型字段问题不能insert into ?很烦!!!!!
- DBGrid浏览
- Form最小化会触发什么事件?或引起哪些参数改变?
- Delphi是我的第二老婆
- MOVE函数的理解
form2:TForm2;
begin
form2:=TForm2.Create(self);
form2.show;
//...
FreeAndNil(form2);
end;
myform: TForm2;
begin
try
myform:= TForm2.Create(nil);
myform.ShowModal;
finally
myform.free;
end;
end;
}
unit Unt_PubFun;interface
uses windows, sysutils, messages, forms, dialogs, classes,controls, contnrs ;type
TPubfun = class(TObject)
public
function JaxCreateForm(AClass: TFormClass; AOwner:TComponent):TForm; overload;
function JaxCreateForm(AClassName:string; AOwner:TComponent):TForm; overload;
end;var
PubFun : TPubFun;
implementation{ TPubfun }function TPubfun.JaxCreateForm(AClass: TFormClass;
AOwner: TComponent): TForm;
begin
Result := AClass.Create(AOwner);
end;function TPubfun.JaxCreateForm(AClassName: string;
AOwner: TComponent): TForm;
var
FindClass: TPersistentclass;
begin
FindClass := GetClass(AClassName);
if (FindClass <> nil) and FindClass.InheritsFrom(TForm) then
Result := TFormClass(FindClass).Create(Aowner)
else Result := nil;
end;end.
譬如下新建单元Unt_RegisterForm中加入代码。unit Unt_RegisterFrms;interface
uses
windows, sysutils, messages, forms;var
Frm_User: TFrmUser;
implementationinitialization
registerClasses([Frm_User]);
finalization
UnRegisteClasses([Frm_User]); end.