procedure WndProc(var msg:TMessage);override;procedure TForm1.WndProc(var msg:TMessage);
begin
case msg.Msg of {可以截获你想要截获的任何WINDOWS消息}
WM_RBUTTONDOWN : ShowMessage('LButton');
WM_CHAR : ShowMessage(chr(msg.wParam));
end;
inherited WndProc(msg);
end;
begin
case msg.Msg of {可以截获你想要截获的任何WINDOWS消息}
WM_RBUTTONDOWN : ShowMessage('LButton');
WM_CHAR : ShowMessage(chr(msg.wParam));
end;
inherited WndProc(msg);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货