Drag and Drop

[R2D2]

Hallo,

Ich mochte gerne das Verschieben einer Komponente per Drag&Drop realisieren. Allerdings finde ich keine wirklich passende Anleitung bei google oder hier im Forum.

Gibt es da eine (einfache) Möglichkeit, wenn ja, wie lautet diese?

[R2D2]

Ich hab jetzt folgenden Code gefunden:

Delphi-Quellcode:

procedure TForm1.WinControlMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (Sender is TWinControl) then
  begin
    ReleaseCapture; //Fängt alle Mausereignisse ab
    TWinControl(Sender).Perform(WM_SysCommand, $F012, 0);
  end;
end;

Allerdings kennt er WM_SysCommand und ReleaseCapture nicht.

Welche unit brauche ich da noch?

[bitsetter]

Hi,

für ReleaseCapture die unit Windows und für WM_SysCommand die unit Messages.