|
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('現(xiàn)在最大化') else if msg.CmdType = SC_MINIMIZE then showmessage('現(xiàn)在最小化'); inherited; end; end. |
|
|
