行为判断Delphi中窗体最大化与最小化事件


本文整理自网络,侵删。

 当点击最大化最小化按钮是的行为.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
private
private
procedure WMsyscommand(var msg : Twmsyscommand);message wm_syscommand;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure Tform1.WMsyscommand(var msg : Twmsyscommand);
begin
if msg.CmdType = SC_MAXIMIZE then
showmessage('现在最大化')
else if msg.CmdType = SC_MINIMIZE then
showmessage('现在最小化');
inherited;
end;
==========================================================窗体始终最大化

procedure TForm1.WMSYSCOMMAND(var Msg: TWMSYSCOMMAND);
begin
if (Msg.CmdType =SC_MINIMIZE) or (Msg.CmdType =SC_RESTORE) then
//判断消息类型是否"最小化"或"恢复"
//是则进入自己处理函数
begin
ShowMessage('不能最小化');
Msg.Result:=0;///////////////////////////////////////////这个应该就是最大化
end
else
//不是则采取系统默认处理方式
inherited;
end;

end.
//www.delphitop.com 搜集整理

相关阅读 >>

Delphi判断文件夹(目录)是否存在,不存在就创建一个

Delphi 实现php的urlencode编码效果

Delphi捕获twebbrowser的close事件

Delphi 获取系统日期时间

Delphi自动提交网页表单和获取框架网页源码

Delphi firedac连接mysql的时候报错

Delphi concat 连接两个或多个字符串为一个字符串

Delphi dos批命令打开应用程序同时关闭dos窗口本身

Delphi实现dbgrid全选和反选功能

Delphi中内嵌汇编

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...