如何把代碼寫在Application.OnMinimize事件中?

Question

在Application->Init()之前加上
Application->OnMinimize=你自己的函数;

Answer 1

To ziaozi(小子):
  我試了﹐好像不行

Answer 2

有控件不用？
ApplicationEvents控件OnMinimize事件。

Answer 3

procedure TForm1.OnCreate(Sender:TObject);
begin
   Application->OnMinimize=WhenMinimize;
end;procedure TForm1.WhenMinimize(Sender:TObject);
begin
   ShowMessage('最小化');
end;

Answer 4

To sephil(NAILY,知道什么意思吗？猜对有分！):
  這方法我也知道﹐不過﹐寫在FormCreate事件﹐總有點別扭﹐是否可寫在工程文件中﹖﹖