重载WndProc
protected
procedure WndProc(var Message: TMessage); override;
....
...
..procedure TMainForm.WndProc(var Message: TMessage);
begin
if Message.Msg = WM_KeyDown then
//你的处理
else if Message.Msg = WM_LBUTTONDOWN then
//你的处理
else
inherited;
end;
protected
procedure WndProc(var Message: TMessage); override;
....
...
..procedure TMainForm.WndProc(var Message: TMessage);
begin
if Message.Msg = WM_KeyDown then
//你的处理
else if Message.Msg = WM_LBUTTONDOWN then
//你的处理
else
inherited;
end;
我主要是想在系统屏幕有改变时CopyScreen
找Hook高手吧
例:
procedure SomeObject.AppMessageHandle(var Msg: TMsg;Handle: Boolean);
//上面是你的消息处理事件
Application.OnMessage := SomeObject.AppMessageHandle