delphi:点关闭按钮窗口最小化
2010-05-25 12:12
369 查看
点击关闭按钮让窗体最小化
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
protected
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
case Message.CmdType of
SC_CLOSE: begin
Perform(WM_SYSCOMMAND, SC_MINIMIZE, 0);
Exit;
end;
end;
inherited;
end;
end本文出自 “风起云涌” 博客,请务必保留此出处http://gzkhrh.blog.51cto.com/30447/320777
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
protected
procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
case Message.CmdType of
SC_CLOSE: begin
Perform(WM_SYSCOMMAND, SC_MINIMIZE, 0);
Exit;
end;
end;
inherited;
end;
end本文出自 “风起云涌” 博客,请务必保留此出处http://gzkhrh.blog.51cto.com/30447/320777
相关文章推荐
- 在网页中使用javascript打开没有最大化、最小化和关闭按钮的窗口
- Qt 设置窗口的最小化、最大化、关闭按钮
- 怎么拦截窗口上的最大化\最小化\关闭按钮事件
- Delphi中让窗口关闭按钮无效的6种方法
- ubuntu 将最大化,最小化,关闭按钮置于窗口右侧
- 【Ubuntu下 ftp应用】【窗口没有最大化最小化】【调整关闭按钮到菜单栏右侧】【Movie Player和Gnome MPlayer 中文字幕问题】【修改Ubuntu启动项】
- js案例:使用js弹出小窗口(没有浏览器窗口地址栏,工具栏,菜单栏,显示栏,只有关闭和最小化按钮)
- Ubuntu 10.04 窗口关闭最大化最小化按钮位置调整
- ubuntu有时可能会出现窗口突然没有了“关闭”“最小化”“最大化“按钮
- Delphi中让窗口关闭按钮无效的6种方法
- ubuntu 将最大化,最小化,关闭按钮置于窗口右侧
- Qt之无边框自定义最小化、关闭按钮并实现窗口移动
- Ubuntu里所有窗口左上角的关闭最小化最大化按钮都不见了
- NSIS隐藏窗口标题栏自带的按钮(最大化,最小化,关闭X)
- 让Qt的窗口最小化最大化及关闭按钮都消失
- Delphi 拦截/封锁 点击窗体右上角 最小化 最大化 层叠 关闭 按钮
- ubuntu 将最大化,最小化,关闭按钮置于窗口右侧
- QT窗口去掉最大化最小化关闭按钮
- Ubuntu窗口上的关闭最大化最小化按钮都不见了!?
- 让Qt的窗口最小化最大化及关闭按钮都消失