问个基础问题如何编写当击窗体右上角的最小化时执行一个事件
问个基础问题如何编写当击窗体右上角的最小化时执行一个事件



[解决办法]
拦截最小化的消息！
unit Unit1;

interface

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

type
TForm1 = class(TForm)
private
{ Private declarations }
procedure WMSysCommand(var Message:Tmessage);
message WM_SYSCOMMAND;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.WMSysCommand(var Message:Tmessage);
begin
if Message.WParam=SC_MINIMIZE then Exit // 拦截一下~~
else inherited;
end;
end.
从别处抄的，应该没什么问题！
[解决办法]
编写application.onminimize事件。。
[解决办法]
扔个ApplicationEvents，自己看On
[解决办法]
祝你成功
[解决办法]
散分吧。。