Drag and drop

@John_Pa9JIbHuK · Регистрация: 31.03.2009

Author24 — интернет-сервис помощи студентам

напишите плиз примерчик как содержимое edita перетащить в memo

@apocalypce · 14.10.2009, 12:59

имеете ввиду если пользователь ввел что то в edit текс должен отобразться в memo или методом выделения далее перетащить?

@John_Pa9JIbHuK · 14.10.2009, 13:24 **[ТС]**

я сделал edit1 dragmode auto. Тогда текст из едита нельзя изменить а можно просто перетаскивать
в мемо

Delphi

procedure TForm1.Memo1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
if source=edit1 then accept:=true else accept:=false;
end;
 
procedure TForm1.Memo1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
memo1.Lines.Add(edit1.Text);
end;

а как сделать чтоб перетаскивать выделенный текст?

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
		1
	Drag and drop 14.10.2009, 12:54. Показов 2863. Ответов 2 Метки нет (Все метки) напишите плиз примерчик как содержимое edita перетащить в memo 0

@apocalypce 9 / 9 / 0 Регистрация: 08.08.2009 Сообщений: 47
	14.10.2009, 12:59	2
	имеете ввиду если пользователь ввел что то в edit текс должен отобразться в memo или методом выделения далее перетащить? 0

	14.10.2009, 13:24

Drag and drop

Решение