wmnchittest 프로시저를 사용하면 그 영역에는 다른 이벤트를 사용할 수 없나요?
procedure tform1.wmnchittest(var msg: twmnchittest);
begin
if bool(getasynckeystate(vk_lbutton)) then begin
msg.result := htcaption;
end
else begin
msg.result := htclient;
end;
end;
한 이미지에 위의 프로시져를 적용하고 Onclick 이벤트를 적용하고 싶은데 잘 되지 않네요.
어떻게 하나요?
그냥 WMNCHitTest에서 OnClick이벤트를 호출하시면 될것 같은데요...
procedure tform1.wmnchittest(var msg: twmnchittest);
begin
......
Button1Click(Self);
end;
hj998811 wrote:
> wmnchittest 프로시저를 사용하면 그 영역에는 다른 이벤트를 사용할 수 없나요?
>
> procedure tform1.wmnchittest(var msg: twmnchittest);
> begin
> if bool(getasynckeystate(vk_lbutton)) then begin
> msg.result := htcaption;
> end
> else begin
> msg.result := htclient;
> end;
> end;
>
> 한 이미지에 위의 프로시져를 적용하고 Onclick 이벤트를 적용하고 싶은데 잘 되지 않네요.
> 어떻게 하나요?