Question

delphi7怎么弹出子窗口

在Delphi7中 怎么触发子窗体的弹出？

Answer 1

uses unit2; //如果你的子窗体是unit2

在按钮里写上

Form2.show
就可以了。

Answer 2

ShowModal是指在子窗口关闭前其他窗口不能动
在修改了ModalResult后（modalresult:=mrOK;||modalresult:=mrCancel;)自动返回主窗体
show只是单单开个子窗体，用form2.close关掉

Answer 3

procedure TForm1.Button1Click(Sender: TObject)
var
sub_Frm: TForm2;
begin
sub_Frm := TForm2.Create(Application);
try
if sub_Frm.ShowModal = mrOk then
begin
//Do Something
end;
finally
sub_Frm.Free;
end;
end;

Answer 4

form2.show;

form2.showmodal;