so ganz klappts irgendwie nicht.
denn
URL TargetDrop nimmt wenn das bild nicht verlinkt ist die
URL des bildes.
Falls es jedoch verlinkt ist, zeigt es die Verlinkung des Bildes im label an.
Downloadbild lädt die
url nur in einen stream und zeigt sie dann im Image an.
Wie bekomme ich denn nun immer bei einem BilderDrop....
1.das Bild an sich im Image
2.die Bild
Url
3.die verlinkte
URL des bildes
Delphi-Quellcode:
procedure TForm1.DropURLTarget1Drop(Sender: TObject; ShiftState: TShiftState;
APoint: TPoint;
var Effect: Integer);
begin
// An URL has been dropped - Copy the URL and title from the drop target.
PanelURL.Caption := DropURLTarget1.Title;
LabelURL.Caption := DropURLTarget1.URL;
DownloadBild(DropURLTarget1.URL,ImageTarget);
end;