Hallo,
ich habe auf meiner Form ein Label.
Nun will ich, dass man das Formular via Label hin-und herverschieben kann:
Wenn Ich das Label nach oben ziehen will, geht nicht das Label nach oben, sondern die Form.
Danke fürs lesen.
P.S. Das hier sollte Theoretisch funktionieren, tut es aber nicht:
Code:
procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform(wm_syscommand,$f012, 0);
end;