回 帖 发 新 帖 刷新版面

主题:[原创]窗体关闭

我怎样才能在一个窗体中单击按钮就能关闭另一个窗体

回复列表 (共3个回复)

沙发

uses Unit2;

//...

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Form2<>nil then Form2.Close;
end;

板凳


use 要关闭的单元名

procedure TForm1.Button1Click(Sender: TObject);
begin
单元名.close;
end;

3 楼

谢谢,已解决。

我来回复

您尚未登录,请登录后再回复。点此登录或注册