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

懇請賜教 ....

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

編輯記錄

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 的值呢?