关于showmodel的问题

[lovewhat1234]

有一个窗体dlgForm，在程序中会被多个窗体调用，例如窗体frmForm1,frmForm2,frmForm3……，dlgForm上有一个按钮BT01(TButton),要求在dlgForm.showmodel时指定BT01的onclick事件，BT01.click必须包括dlgForm.close,请问我该怎么做，谢谢！

[lovewhat1234]

还有别的方法吗？

[lovewhat1234]

to wintergoes(多来米饭少来稀):
问题时我不知道会有多少Form来调用这个dlgForm

[HsWong]

在那里打开就在那里处理,这样比较清晰

[zrz2008]

楼上说的很好,为了让自己的程序清晰及占用最小化,应尽可能将不用的资源释放掉

try
if dlgForm.ShowModal =mrOK then
begin
//这里写处理代码
From1.Close;
end;
fianlly
dlgForm.Free;
fom1.Free;
end;

[lovewhat1234]

to HsWong()
先谢谢你，但是请问如果在dlgForm上有一个TEdit控件（Edit1）,我如何返回Edit1.Text

[zzlb0224]

动态调用
with TdlgForm.Create do
try
aaa:=Edit1.Text;
fianlly
Free;
end;

[wintergoes]

在dlgForm中加入一个变量来记录是从哪个窗体中打开的dlgForm，然后再判断进行操作。

[才子鸣]

繼承.

多態!

[HsWong]

设置BT01的ModalResult为mrOK
其它窗体打开dlgForm时，这样操作:

if dlgForm.ShowModal =mrOK then
begin
//这里写处理代码
dlgForm.Close;
end;

[lovewhat1234]

可是Edit1.text在dlgForm.showmodal时是会被改变的，我的意思是如何得到改变后的edit1.text