Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Mazel,
2. Mär 2007
Wenn du meinen Code mal anwendest, dann brauchst du nur einmal auf das Panel klicken und mit der Maus verschieben und wieder loslassen, da es nicht im OnClick sondern OnMouseDown passiert.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Mazel,
2. Mär 2007
Einfach geht es so:
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
// Mausereignisse abfangen
ReleaseCapture;
// mit TWinCotrol verschieben, $F012 verschiebt den Button
TWinControl(Sender).Perform(WM_SYSCOMMAND, $F012, 0);
end;