Drag&Drop startet beim Doppelklick automatisch

[Stolle58]

Benutze Lieber das Event MouseMove.

So mache Ich das jedenfalls.

Delphi-Quellcode:

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if Shift = [ssLeft] then
  begin
    BeginDrag(True, 10);
  end;
end;