100分，关于以前的一个关于动态菜单调用Form的问题(100分)

T

t123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #1

根据不同的菜单选择可以传回不同的ｆｏｒｍ名（string型），如何动态调用这个ｆｏｒｍ？
例如：
有两个ｆｏｒｍ：
ｆｏｒｍ１：ｔｆｏｒｍ１
ｆｏｒｍ２：ｔｆｏｒｍ２
菜单项的ｏｎｃｌｉｃｋ事件代码均为：ｍｙ＿ｓｈｏｗｆｏｒｍ（ｖ＿ｆｏｒｍｎａｍｅ）；
参数ｖ＿ｆｏｒｍｎａｍｅ（ｓｔｒｉｎｇ型）是动态变化的。
我想通过ｍｙ＿ｓｈｏｗｆｏｒｍ来显示不同的ｆｏｒｍ，也就是说
ｍｙ＿ｓｈｏｗｆｏｒｍ（＇ｆｏｒｍ１＇）显示ｔｆｏｒｍ１
ｍｙ＿ｓｈｏｗｆｏｒｍ（＇ｆｏｒｍ２＇）显示ｔｆｏｒｍ２
如何实现？
以前的回答：
Procedure my_showform(v_formname:string);
begin
tform(application.FindComponent(v_formname)).show;
End
或者
直接以TFORM做参数，如下：
procedure ｍｙ＿ｓｈｏｗｆｏｒｍ（ｖ＿ｆｏｒｍｎａｍｅ:TForm）；
调用时Form1时：
ｍｙ＿ｓｈｏｗｆｏｒｍ（Form1）；
新问题：
我的form是mdichildform,在主程序开始的时候我不想创建他们，我想用的时候再创建，这两种方法就不灵了！
怎么办？难道非得用sdi或在开始时就创建他们？

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #2

动态创建的时候得到句柄， 再 show不行吗？

 

S

sadj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #3

可以这样:
for i := 0 to Screen.FormCount - 1do
if Screen.Forms.Name = 'Form1' then
...
try it!

 

T

t123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-28

• #4

问题是，主程序运行后，还没有创建子form，子form要根据选择的菜单功能来创建。
例如：菜单1对应的mdichildform名是：form_aaaa
菜单2对应的mdichildform名是：form_bbbb
当我选择菜单1时就动态创建form_aaaa，用完释放；
当我选择菜单2时就动态创建form_bbbb，用完释放。
所以用两位的方法行不通

 

S

sadj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-29

• #5

需要注意的是：MDIChild的Form不能被隐藏，也就是不能Hide,除非你用发个消息给他。而且可能
有隐含的问题。
如果根据菜单的功能创建，可以写在菜单的OnClick事件中阿,或者写入actionlist也可以
比如：
var
form_aaaa: TForm_aaaa;
implementation
TForm.aaaaClick(sender: TObject);
begin
form_aaaa := TForm_aaaa.create(self);
end

 

尧

尧

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-29

• #6

如果你的菜单对应着Form就好办了：
Procedure TMainForm.N1Click(Sender:TObject)
begin
if not Assigned(Form_aaa) then
Beign
Form_aaa:=TForm_aaa.Create(Application);
Form_aaa.show;
end;
end;
但是在OnClose事件中要把动态创建的Form_aaa释放掉：
Action:=caFree;
Form_aaa:=nil;
试试吧！！！如果能行就给点分吧！哈

 

S

sadj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-29

• #7

嗯，楼上写得比较具体，照他的办吧

 

Z

zxb200

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-29

• #8

打開窗口過程，你看看：
procedure tform1.my_showform(v_formname:string);//v_formname為窗體名
var classform:tformclass;
fform:tform;
begin
classform:=tformclass(findclass('t'+v_formname));
fform:=tform(application.FindComponent(v_formname));
if not assigned(fform) then
application.CreateForm(classform,fform);
fform.show;
end;
若想在form1中通過上過程打開其他窗口，首先要注冊其它窗口
的類。如若想打開form2窗口，則注冊如下：
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterClass(tform2);
end;
這樣在form1的oncreate事件中將要打開的窗口類全部一次性注冊即可。
打開窗口示例：
procedure TForm1.Button3Click(Sender: TObject);
begin
my_showform('form2');
end;

 

T

t123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-29

• #9

尧的方法不可行，应为我在程序运行后才知道菜单所对应的tfrom是什么。
zxb2000的做法可能行，我先试试。

 

S

sydan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-29

• #10

把你那個ｖ＿ｆｏｒｍｎａｍｅ變為Tform類型不是更簡單么!!??
在菜單的Click事件中這樣寫道 New_Form(ｖ＿ｆｏｒｍｎａｍｅ);
再公共事件中這樣寫道:
procedure TMain_Name.New_Form(form_MName: Tform);
if form_MName=nil then
form_MName:=Tform_MName.create(application);
form_MName.show;

 

T

t123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-29

• #11

请教zxb2000:
若想在form1中通過上過程打開其他窗口，首先要注冊其它窗口
的類。如若想打開form2窗口，則注冊如下：
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterClass(tform2);
end;
问题是我只有在程序运行后才知道有哪些窗口要打开，也就是说tform2是个字符串变量，怎么办？

 

Z

zxb200

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-01

• #12

應該在你的系統中
窗口的類名是設計時
就固定在下來了。把所有要
在主窗口打開的窗口的
類注冊一遍，不就可以了。
你要在程序中動態生成
其它的窗口，也是在當前
已存在的類中繼承。
比如要打開form2,form2窗口早在
你設計時就建立好了，你在主窗口
寫個注冊form2的類就可以了。

 

T

t123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-02

• #13

接受答案了.