请问如何使按最小化时让程序触发一个动作？

Question

ApplicationEvents的OnMinimize事件。

Answer 1

to taxi(菜得惊动毛主席) 
我在form中没有看到有OnMinimize事件。请指点。。
谢谢。

Answer 2

既然是个这么简单的问题，那我也来凑凑热闹，呵呵
OnMinimize是TApplicationEvents的事件，应该在第二个VCL标签上，你把它放到你的窗体上就行了。

Answer 3

再问一句，如何捕获WM_MINIMIZE消息？

Answer 4

procedure TfrmMain.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  Handled := False;
  if (Msg.message = WM_MINIMIZE)  then  ....
end;