关于showmodel的问题

Question

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

Answer 1

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

Answer 2

设置BT01的ModalResult为mrOK
其它窗体打开dlgForm时，这样操作:if dlgForm.ShowModal =mrOK then
begin
  //这里写处理代码
  dlgForm.Close;
end;

Answer 3

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

Answer 4

楼上说的很好,为了让自己的程序清晰及占用最小化,应尽可能将不用的资源释放掉try
  if dlgForm.ShowModal =mrOK then
  begin
    //这里写处理代码
    From1.Close;
  end;
fianlly
  dlgForm.Free;
  fom1.Free;
end;

Answer 5

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

Answer 6

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

Answer 7

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