Hallo,
Ik wil een actie uitvoeren zodra de gebruiker na het verplaatsen van het hoofdscherm de muisknop loslaat.
Hiervoor gebruik ik WM_NCLBUTTONUP.
Code:
procedure WMNCLButtonDown(var Msg: TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
procedure WMNCLButtonUp(var Msg: TWMNCLButtonUp); message WM_NCLBUTTONUP;
…
procedure TF_Main.WMNCLButtonDown(var Msg: TWMNCLButtonDown);
begin
// inherited;
end;
procedure TF_Main.WMNCLButtonUp(var Msg: TWMNCLButtonUp);
begin
if Msg.HitTest = HTCAPTION then Actie;
inherited;
end;
Nu het vreemde.
1- Zonder NCLBUTTONDOWN vuurt NCLBUTTONUP niet.
2- Zonder inherited in NCLBUTTONDOWN kan ik het scherm niet meer verplaatsen.
3- Met inherited vuurt NCLBUTTONUP niet.
Heeft iemand hier een oplossing of andere methode voor?
Bookmarks