search

landrix / The-Drag-and-Drop-Component-Suite-for-Delphi

MIT License
161 stars 57 forks source link

Does not work TDropURLTarget.PasteFromClipboard #80

Closed Mikhail-Barinov closed 3 months ago

Mikhail-Barinov commented 3 months ago

Does not work TDropURLTarget.PasteFromClipboard. The program is crashing.

Delphi 10.1 and Delphi 10.2

DropURLTarget1.DragTypes = [dtCopy,dtMove,dtLink]

procedure TForm1.N3Click(Sender: TObject);
begin
 DropURLTarget1.PasteFromClipboard;
end;
procedure TForm1.DropURLTarget1Drop(Sender: TObject; ShiftState: TShiftState;
  APoint: TPoint; var Effect: Integer);
begin
 Panel2.Caption := DropURLTarget1.Title+': '+String(DropURLTarget1.URL);
end;

Error in TDropURLTarget.GetPreferredDropEffect:

00001

00002