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]