1,183
社区成员
发帖
与我相关
我的任务
分享
type
TmyEdit=class(TEdit)
protected
procedure wndProc(var msg:TMessage);override;
end;
procedure TmyEdit.wndProc(var msg: TMessage);
begin
if msg.Msg=WM_ENABLE then exit;
inherited;
end;
//1.Override一下Form的WndProc
//2.对WndProc中的消息进行过滤
function WndProc(............);
begin
case msg of
WM_XXX:新处理过程;
end;
Inherited;
end;