比如说:
var
FrmName:String FrmName:='FrmAbout';
我想把名为'FrmAbout'窗体创建起来!
var
FrmName:String FrmName:='FrmAbout';
我想把名为'FrmAbout'窗体创建起来!
解决方案 »
- 高分请教!delphi smtp群发邮件+自己搭建服务器的问题!
- 高分求ado控件的改进版本,支持虚拟字段(up有分,先给100分,若能用分加到2000)
- 一个后台运行的程序,如何获知当前运行的程序是否全屏显示(如游戏,看蝶之类)?
- 花大哥,我昨天看了你给我的提示,我还是不明白,能否有这样的例子(关于DataetAdapter,能任意在网页中放置数据的。),让我看看。c841@1
- 关于语音编程问题
- 一个关于shape控件在动态生成后,要让怎样它能够实现拖动功能?
- 请问如何接收80端口数据
- 有谁知道如何访问快捷方式文件,如何得到快捷方式所指文件的目标路径?
- 各位高手注意:已知另外一个窗体的button的handle,如何截取它的单击消息,连到我的窗体中的一个过程??
- ----delphi.csdn 大会胜利召开--(会议纪实)地点:qq聊天室自建14,delphi.csdn 时间:19:00-22:00
- 怎么实现为动态创建的控件加事件?
- 有没有产生多个连续的、同样的字符的函数
就是在主窗口创建的同时,用RegisterClass方法注册你其他已经设计好的窗体类,然后看下面代码:
procedure TForm1.TForm1.FormCreate(Sender: TObject);
begin
RegisterClass(TThankYou); //注册所有其他你设计好的窗口类,用法参考帮助
end;
然后:
procedure TForm1.Button1Click(Sender: TObject);
var str: string;
Form: TForm;
begin
str := 'TThankYou';
Form := TFormClass(Classes.FindClass(str)).Create(Application); //查找注册的窗体类并创建
form.Show;
end;
只是多了一个步骤,很简单,另外,注册窗体类的时候可以定义一个窗体类数组一并传入RegisterClass方法中。
procedure TForm1.TForm1.FormCreate(Sender: TObject);
begin
RegisterClass(TThankYou); //注册所有其他你设计好的窗口类,用法参考帮助
end;
那还是不是需要这段代码:
procedure TForm1.FormClose(Sender: TObject);
begin
UnRegisterClass(TThankYou); //注册所有其他你设计好的窗口类,用法参考帮助
end;