Drag & Drop von einer Anwendung

[ArmyMan]

Hallo Zusammen

Ich will machen dass man eine Anwendung verschieben kann. Ich will dass man auf einer TPanel komponente klicken kann um dann die ganze Anwendung zu verschieben, hab aber keine Ahnung wie das geht. :gruebel:
Kann mir jemand helfen???

Danke im voraus

ArmyMan

[BKempf]

Suchst du was in dieser Richtung?

Delphi-Quellcode:

procedure T.MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  DragStartX:=X;
  DragStartY:=Y;
end;

procedure T.MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ssLeft in Shift then
  begin
    self.Left:=self.Left+(X-DragStartX);
    self.Top:=self.Top+(Y-DragStartY);
  end;
end;

[MrKnogge]

Besser wäre dann:

Delphi-Quellcode:

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (ssLeft in Shift) then begin
    ReleaseCapture;
    SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_MOVE+1,0);
    end; 
end;

Sollte dies das gesuchte sein, dann ist der Titel irgendwie unglücklich gewählt, hat doch nichts mit Drag&Drop zu tun :gruebel:

[Tubos]

Zitat:

Sollte dies das gesuchte sein, dann ist der Titel irgendwie unglücklich gewählt, hat doch nichts mit Drag&Drop zu tun

Eigentlich ist es drag&drop: du dragst die anwendung und droppst sie irgendwo hin!

[MrKnogge]

ok, so kann man es auch sehen, ich denk bei Drag&Drop eher an Daten/Dateien die per Drop&Drag kopiert/verschoben/bearbeitet werden. Von daher, ArmyMan lass die Überschrift wie sie ist :mrgreen:

[ArmyMan]

Super! Vielen vielen Dank allerseits.
Endlich hats geklappt! Bin fast daran verzweifelt.

Thx ArmyMan :dp: