全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1179
推到 Plurk!
推到 Facebook!

如何抓取 windows message

缺席
alikering
一般會員


發表:8
回覆:11
積分:8
註冊:2006-08-23

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-10-20 17:23:37 IP:59.124.xxx.xxx 訂閱
請教各位大大 要怎麼做 才可以抓取 某個事件的 msg.message 的值?

懇請賜教 ....

再請教 Getmessage 這個含數 是否可以抓取全部的 msg.message 的值呢?

編輯記錄
alikering 重新編輯於 2011-10-25 02:43:48, 註解 無‧
blue
中階會員


發表:113
回覆:99
積分:52
註冊:2002-04-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-11-17 08:54:52 IP:122.146.xxx.xxx 訂閱
Hi,您好:
看一下這三種方式:
1. procedure WMClose(var Msg: TMessage); message WM_Close;
procedure TForm2.WMClose(var Msg: TMessage);
begin
ShowMessage('Close');
end;


2. procedure WndProc(var Msg: TMessage); override;
procedure TForm2.WndProc(var Msg: TMessage);
begin
if (Msg.Msg = WM_SYSCOMMAND) and (Msg.WParam = SC_CLOSE) then
begin
ShowMessage('Close');
end;
inherited;
end;

3.procedure TForm2.Button1Click(Sender: TObject);
var
Msg: TMsg;
begin
while GetMessage(Msg,0,0,0) do
begin
TranslateMessage(Msg);
if Msg.message = WM_KEYDOWN then
showMessage('KEYDOWN');
DispatchMessage(Msg);
end;
end;




===================引 用 alikering 文 章===================
請教各位大大 要怎麼做 才可以抓取 某個事件的 msg.message 的值?

懇請賜教 ....

再請教 Getmessage 這個含數 是否可以抓取全部的 msg.message 的值呢?

系統時間:2017-10-22 21:34:37
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!