1,183
社区成员
发帖
与我相关
我的任务
分享WndProc中关于inherited的位置
procedure TfrmScreenSnapRect.WndProc(var Msg :TMessage);
begin
//位置1：inherited;
case Msg.Msg of
WM_NCHITTEST
begin
if TWMNCHitTest(Msg).Result = htClient then
TWMNCHitTest(Msg).Result := htCaption;
end;
WM_LBUTTONDBLCLK:
begin
ModalResult := mrOk;
end;
end;
inherited;//位置2
end;
inherited在
位置1时WM_NCHITTEST响应，WM_LBUTTONDBLCLK不响应
位置2时WM_NCHITTEST不响应，TWMNCHitTest(Msg).Result=0，WM_LBUTTONDBLCLK不响应
请问如何让他们都能正确响应？
分不多，希望大家指点一下，谢谢
begin
//位置1：inherited;
case Msg.Msg of
WM_NCHITTEST
begin
if TWMNCHitTest(Msg).Result = htClient then
TWMNCHitTest(Msg).Result := htCaption;
end;
WM_LBUTTONDBLCLK:
begin
ModalResult := mrOk;
end;
end;
inherited;//位置2
end;
inherited在
位置1时WM_NCHITTEST响应，WM_LBUTTONDBLCLK不响应
位置2时WM_NCHITTEST不响应，TWMNCHitTest(Msg).Result=0，WM_LBUTTONDBLCLK不响应
请问如何让他们都能正确响应？
分不多，希望大家指点一下，谢谢
...全文
请发表友善的回复…
发表回复
taste品味 2010-04-07
- 打赏
- 举报
TfrmScreenSnapRect = class(TForm)
Reverse.King 2010-04-07
- 打赏
- 举报
父类代码贴出来
