delphi点击关闭按钮让窗体最小化
2009-10-20 18:24
441 查看
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.
相关文章推荐
- Delphi 拦截/封锁 点击窗体右上角 最小化 最大化 层叠 关闭 按钮
- c# winform 让Form窗体上系统自带的红色关闭按钮失效,点击关闭变为最小化
- c# winform 让Form窗体上系统自带的红色关闭按钮失效,点击关闭变为最小化
- C# 窗体点击关闭按钮时最小化到托盘
- delphi窗体去掉最大化,最小化,关闭按钮
- VB6.0实现点击窗体的系统最小化或关闭按钮将窗体最小化到系统托盘区
- C# 窗体点击关闭按钮时最小化到托盘
- 学习 Message(21): WM_SYSCOMMAND 消息[五] : 点击关闭按钮让窗体最小化
- 窗体 最大化、最小化、关闭按钮
- [Win32]只允许最大化最小化窗口,禁止双击标题栏、拖动窗体、点击复原按钮来改变窗口大小
- delphi里怎样取消窗体的关闭按钮
- swing 自定义最小化按钮后,实现点击任务栏图标,使窗体重新显示
- 如何重用这个代码(点击关闭按钮最小化到系统托盘)?
- delphi 子窗体只能最小化不能关闭的解决方案
- .NET WinForms中点击窗体右上角的关闭按钮后的事件处理
- Form窗体点击关闭按钮并未关闭进程的解决方法
- 如何判断 点击窗体右上方的 X (关闭按钮)?
- C#窗体皮肤制作(二):创建窗体库项目以及最小化、最大化、关闭按钮的实现
- 在mfc中,如何设置一个隐藏菜单栏,工具栏,状态栏,最大化、最小化、关闭按钮的窗体
- 使C# 窗体的关闭按钮、最小化、最大化按钮不可用