问个基础有关问题怎么编写当击窗体右下角的最小化时执行一个事件

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



------解决方案--------------------
拦截最小化的消息！
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
------解决方案--------------------
祝你成功
------解决方案--------------------
散分吧。。