Bei DragMode dmAutomatic keine Auswahl möglich

[Luckie]

So sieht es jetzt aus:

Delphi-Quellcode:

procedure TForm2.ImageEnMView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  MouseDown := True;
end;

procedure TForm2.ImageEnMView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if MouseDown then
    ImageEnMView1.BeginDrag(False, 10);
end;

procedure TForm2.ImageEnMView1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  MouseDown := False;
end;