implementation
uses Unit2;
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.show;
end;
双击这个BUTTON会自动添加一个事件，按以下修改
procedure TForm1.Button_Click(Sender: TObject); ////事件
var f: TForm2;
begin
f:=TForm2.Create(self);
f.ShowModal();
end;
内容全部来源于网络收集，如有侵权，请联系网站删除!