Form per Drag&Drop bewegen

[Nils_13]

Delphi-Quellcode:

...

private
procedure WMNCHitTest(var Msg : TMessage); message WM_NCHITTEST;
end;

...



procedure TForm1.WMNCHitTest(var Msg : TMessage);
begin
    if GetAsyncKeyState(VK_LBUTTON) < 0 then
    Msg.Result := HTCAPTION
    else
    Msg.Result := HTCLIENT;
end;

Eine Alternative ... .