如何在窗口关闭按钮被点击时,使窗口不发送关闭消息,而继续运行。

Zhymax 2003-04-07 02:57:37
我想在窗口关闭按钮被点击时,使窗口最小化而不是关闭,如何实现,各位高手请指点!!
...全文
107 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
Zhymax 2003-04-07
  • 打赏
  • 举报
回复
谢谢各位
esu 2003-04-07
  • 打赏
  • 举报
回复
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
canclose:=False;
Form1.windowstate:=wsMinimized
end;

如果你要关闭的话用
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Destroy//或者form1.Free
end;
jiaai 2003-04-07
  • 打赏
  • 举报
回复
同意楼上sysu(死树) (观点)
sysu 2003-04-07
  • 打赏
  • 举报
回复
在Form的OnCloseQuery事件中:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Application.Minimize;
CanClose := False;
end;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧