delphi用一个按钮打开关闭某窗体
2011-02-17
展开全部
Form1 := TForm1.Create(Application);//创建窗体实例
Form1.Show;//非模态的显示窗体
Form1.Close;//关闭窗体
Form1.Show;//非模态的显示窗体
Form1.Close;//关闭窗体
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
打开,onclick响应:
form2.show //事先Alt+f11 关联form2,如下:
implementation
{$R *.dfm}
uses Unit2;
关闭,dbclick响应:
form2.close;
form2.show //事先Alt+f11 关联form2,如下:
implementation
{$R *.dfm}
uses Unit2;
关闭,dbclick响应:
form2.close;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
首先确保form2已经创建了
则可类似写成
if form2.showing then form2.Hide
else form2.Show;
则可类似写成
if form2.showing then form2.Hide
else form2.Show;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
工程文件删除
Application.CreateForm(TForm2, Form2);字样
Form2窗体关闭事件
Action:=caFree;
form1按钮事件
if not Assigned(Form2) then
begin
Form2:=TForm2.Create(nil);
Form2.Show;
end else
Form2.Close;
Application.CreateForm(TForm2, Form2);字样
Form2窗体关闭事件
Action:=caFree;
form1按钮事件
if not Assigned(Form2) then
begin
Form2:=TForm2.Create(nil);
Form2.Show;
end else
Form2.Close;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
procedure TForm1.Button1Click(Sender: TObject);
begin
if form2.Visible then
form2.Hide
else
form2.Show;
end;
begin
if form2.Visible then
form2.Hide
else
form2.Show;
end;
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询