show与showmodal(100分)

芙

芙蓉弟弟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-19

• #1

其实我想用showmodal的效果,不知道你们是怎么控制的
if Application.FindComponent('F_HC') = nil then
Application.CreateForm(TF_HC, F_HC);
F_HC.ShowModal;
F_HC.Left:=F_HC.Left+50;
F_HC.TOP:=F_HC.TOP+50;
这个是我写的，但是不知道怎么在showmodal出来的这个窗体里还需要写什么 关闭时free 吗？
知道的朋友具体给我说说 谢谢 也就是个窗体分别在什么事件里怎么写？

 

李

李翔鹏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-19

• #2

F_HC.ShowModal;
F_HC.Free;
或者写到窗体的EXIT事件中
F_HC.FREE；
F_HC ：= nil;

 

0

007vivi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-19

• #3

free..

 

L

lilbdping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-19

• #4

if Application.FindComponent('F_HC') = nil then
Application.CreateForm(TF_HC, F_HC);
try
F_HC.ShowModal;
F_HC.Left:=F_HC.Left+50;
F_HC.TOP:=F_HC.TOP+50;
finally
F_HC.Free;
end;

 

D

delhpi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-19

• #5

F_HC.Left:=F_HC.Left+50;
F_HC.TOP:=F_HC.TOP+50;

这个 显示前 会运行吗？

 

芙

芙蓉弟弟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-12-19

• #6

还是在搞定了 只是自己的函数出了问题 谢谢各位