Bei DragMode dmAutomatic keine Auswahl möglich

[Luckie]

Ich benutze die Image Komponenten von ://www.hicomponents.com

Dort gibt es eine Thumbnail Komponente. Jetzt versuche ich ein Thumbnail aus der Thumbnail Komponente auf ein Image zu ziehen. Das klappt auch ganz gut mit dem DragMode dmAutomatic. Nur ist es leider so, dass wenn der DragMode auf dmAutomatic steht man keine Thumbnails mehr auswählen kann. nehme ich den DragMode dmManual funktioniert mein Drag and Drop nicht mehr:

Wie realisiere ich also Drag and Drop, wenn die Komponente den DragMode dmManual hat?

Mein bisheriger Code für dmAutomatic sieht so aus:

Delphi-Quellcode:

procedure TForm2.ImageEnView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  idx: Integer;
  Filename: String;
begin
  idx := ImageEnMView1.SelectedImage;
  Filename := ImageEnMView1.ImageFileName[idx];
  if fileexists(filename) then
  begin
    ImageEnView1.IO.LoadFromFileJpeg(Filename);
    ImageEnMView1.DragMode := dmManual;
  end;
end;

procedure TForm2.ImageEnView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
  If (Source is TImageEnMView) then
    Accept := True;
end;

[edit=SirThornberry]Delphi-Tags korrigiert - Mfg, SirThornberry[/edit]