主题:[原创]窗体关闭
league
[专家分:0] 发布于 2007-07-11 17:34:00
我怎样才能在一个窗体中单击按钮就能关闭另一个窗体
回复列表 (共3个回复)
沙发
长尾兔 [专家分:3630] 发布于 2007-07-12 09:17:00
uses Unit2;
//...
procedure TForm1.Button1Click(Sender: TObject);
begin
if Form2<>nil then Form2.Close;
end;
板凳
zhwyhzh [专家分:20] 发布于 2007-07-19 15:21:00
use 要关闭的单元名
procedure TForm1.Button1Click(Sender: TObject);
begin
单元名.close;
end;
3 楼
league [专家分:0] 发布于 2007-07-25 10:22:00
谢谢,已解决。
我来回复