Witam,
Potrzebuję zrobić efekt przeciągania obrazków do componentu TMemo. Tzn, aby po przeciągnięciu obrazka nad TMemo i jego upuszcznie wklejał się w tekście jego ścieżka URL.
I w zasadzie wszystko mam już zrobione poza jednym. Kiedy przeciągam nad TMemo obrazek i go upuszczę to kod wkleja się w miejscu gdzie poprzednio znajdował sie znaczek zachęty.
Tak wyglądaja mniej więcej kod:
procedure TForm1.ImagesMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then
begin
TJvImagesViewer(Sender).BeginDrag(FALSE);
end;
end;
procedure TForm1.Memo1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := Sender <> Source;
end;
procedure TForm1.Memo1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
TMemo(Sender).SelText:=TJvImagesViewer(Source).Items[TJvImagesViewer(Source).SelectedIndex].Caption;
end;
Pytanie brzmi jak zrobić, żeby tekst z adresem obrazka wklejał się bezpośrednio pod kursorem w komponencie TMemo.
Z góry wielkie dzięki za pomoc.