目前我希望在使用者未操作一段時間後, 去執行一段副程式, 目前的做法是在每個元件的 KeyPress, MouseDown去做更新判斷的變數, 不過這樣覺得很麻煩, 有時候元件更換時怕會漏掉, 有沒有辦法去抓到所有在這個畫面上操作Keyboard & Mouse(除了 MouseMove)的系統訊息??

或許可以自己寫這些事件的程序 然後在formcreate的時候動態指定

Perhaps you should create your own application hook and hook to the WH_JOURNALRECORD hook.

不管是動態或是靜態去指定, 如果沒注意到要去更改程式碼或元件Enent, 就會漏掉判斷了, 所以我是想把目前的做法改掉, 改成去抓系統的訊息.    ps. 雖然在 Form 有 Keypreview, 但是就是沒有 Mouse 的, 所以有關 Mouse 的部分目前在每個元件上面都要處理.    

引言: 或許可以自己寫這些事件的程序 然後在formcreate的時候動態指定

Assign Event To Application.OnMessage eg  

procedure MyForm.AppMsgEvent(var Msg: TMsg; var Handled: Boolean);
begin
 if  (Msg.message <> WM_MOUSEMOVE) and
     ((Msg.message >= WM_KEYFIRST)and(Msg.message <= WM_KEYLAST))
      or
     ((Msg.message >= WM_MOUSEFIRST)and(Msg.message  <=WM_MOUSELAST))
 then begin
  //do something
 end; 
end;    procedure MyForm.FormCreate(Sender: TObject);
begin
 Application.OnMessage := AppMsgEvent;
end;     

混心雜欲 棄修身~唉

------
唉~

以下的這段程式碼我試過了, 有幾點請教一下: 1. MouseMove 一樣會觸發, 要如何避開呢?? 2. WM_KEYFIRST、WM_KEYLAST、WM_MOUSEFIRST、WM_MOUSELAST這四個是什麼意思?? 我在 Help 裡面找不到.    

引言: Assign Event To Application.OnMessage eg

procedure MyForm.AppMsgEvent(var Msg: TMsg; var Handled: Boolean);
begin
 if  (Msg.message <> WM_MOUSEMOVE) and
     ((Msg.message >= WM_KEYFIRST)and(Msg.message <= WM_KEYLAST))
      or
     ((Msg.message >= WM_MOUSEFIRST)and(Msg.message  <=WM_MOUSELAST))
 then begin
  //do something
 end; 
end;    procedure MyForm.FormCreate(Sender: TObject);
begin
 Application.OnMessage := AppMsgEvent;
end;     

混心雜欲 棄修身~唉

引言: 以下的這段程式碼我試過了, 有幾點請教一下: 1. MouseMove 一樣會觸發, 要如何避開呢?? 少個括號 2. WM_KEYFIRST、WM_KEYLAST、WM_MOUSEFIRST、WM_MOUSELAST這四個是什麼意思?? 我在 Help 裡面找不到. 鍵盤與滑鼠全部訊息的起始編號/結束編號，請自行參考Messages.pas原始碼或Windows SDK Help

引言: Assign Event To Application.OnMessage eg

procedure MyForm.AppMsgEvent(var Msg: TMsg; var Handled: Boolean);
begin     if  (Msg.message <> WM_MOUSEMOVE) and(
     ((Msg.message >= WM_KEYFIRST)and(Msg.message <= WM_KEYLAST))
      or
     ((Msg.message >= WM_MOUSEFIRST)and(Msg.message  <=WM_MOUSELAST))
     )
 then begin
  //do something
 end; 
end;    procedure MyForm.FormCreate(Sender: TObject);
begin
 Application.OnMessage := AppMsgEvent;
end;     

混心雜欲 棄修身~唉

混心雜欲 棄修身~唉