delphi用一个按钮打开关闭某窗体

想实现在窗体1中点某按钮打开窗体2再点一次关闭窗体2我是菜鸟应该怎么实现呢,请大侠指点... 想实现在窗体1中点某按钮打开窗体2再点一次关闭窗体2 我是菜鸟 应该怎么实现呢,请大侠指点 展开
 我来答
匿名用户
2011-02-17
展开全部
Form1 := TForm1.Create(Application);//创建窗体实例
Form1.Show;//非模态的显示窗体
Form1.Close;//关闭窗体
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
3S追风大叔
2013-04-13
知道答主
回答量:19
采纳率:100%
帮助的人:3.3万
展开全部
打开,onclick响应:
form2.show //事先Alt+f11 关联form2,如下:
implementation
{$R *.dfm}
uses Unit2;

关闭,dbclick响应:
form2.close;
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
googleyeyou
2011-02-17 · TA获得超过186个赞
知道小有建树答主
回答量:269
采纳率:100%
帮助的人:128万
展开全部
首先确保form2已经创建了
则可类似写成
if form2.showing then form2.Hide
else form2.Show;
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
久锡12
2011-02-17
知道答主
回答量:52
采纳率:0%
帮助的人:20万
展开全部
工程文件删除
Application.CreateForm(TForm2, Form2);字样
Form2窗体关闭事件
Action:=caFree;
form1按钮事件
if not Assigned(Form2) then
begin
Form2:=TForm2.Create(nil);
Form2.Show;
end else
Form2.Close;
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
keyiwenwo
2011-02-17 · TA获得超过8871个赞
知道小有建树答主
回答量:993
采纳率:100%
帮助的人:1046万
展开全部
procedure TForm1.Button1Click(Sender: TObject);
begin
if form2.Visible then
form2.Hide
else
form2.Show;
end;
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式