从TControl继承下来的组件都有WndProc和WindowProc通过他们可以自己处理消息.如 先定义一个 Procedure MyProcess(var AMessage:TMessage); 在create或相应的地方设置组件的WindowProc:=MyProcess; Procedure ***.MyProcess(var AMessage:TMessage); begin case AMessage.MSG of WM_RButtonDown: begin end; end; WndProc(AMessage);//将消息传递给本身的处理函数. end;
先定义一个
Procedure MyProcess(var AMessage:TMessage);
在create或相应的地方设置组件的WindowProc:=MyProcess;
Procedure ***.MyProcess(var AMessage:TMessage);
begin
case AMessage.MSG of
WM_RButtonDown:
begin
end;
end;
WndProc(AMessage);//将消息传递给本身的处理函数.
end;