請問各位先進， 當滑鼠離開一個Form的時候，我想寫個觸發動作，縮小該Form 我應該如何寫呢？小弟找不到這個觸發點... 謝謝指點！

試試如下: 其中 Timer1.Interval := 100; Timer1.Enabled := True;

unit main;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;    type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Memo: TMemo;
    procedure Timer1Timer(Sender: TObject);
  private
    procedure CMMouseLeave(var Msg:TMessage); message CM_MOUSELEAVE;
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}    procedure TForm1.CMMouseLeave(var Msg: TMessage);
begin
  Application.Minimize;
end;    procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Exit;
end;    end.

參考: http://groups.google.com.tw/groups?hl=zh-TW&lr=&client=firefox-a&rls=org.mozilla:zh-TW:official&th=86119dfdab12b5fc&rnum=4 -- 發表人 - hagar 於 2005/03/08 08:04:33

请问 hagar 版主, Timer1在这里起什么作用? 是否与Windows的消息处理有关? 谢谢. _________________________ Programming is a passion