Drag & Drop von einer Anwendung

[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;