当点击最大化最小化按钮是的行为.
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.
//
关键字词: