Перетаскивание текста

[YoraG]

Как перетащить текст из вне(с браузера, ворда...) на мою форму в Memo?

[raxp]

...именно перетащить, не поработать с буфером обмена?

[YoraG]

да, например: выделил в браузере текст и тяну мышкой его в мемо...
(с буфером - куча материала и там все просто...)

на данный момент нарыл компонент Drag and Drop сейчас разбираю есть ли там то что мне нужно или нет. Как проверю отпишусь...
Если кто интересуется компонентом - http://melander.dk/delphi/dragdrop/

[YoraG]

Есть добился...
устанавливаем компонент Drag and Drop - http://melander.dk/delphi/dragdrop/
кидаем на форму DropTextTarget1
в Target1 выбираем куда будет тянуться текст в моем случае мемо1(это не значит что туда же будет и вставляться, это указываеться ниже)
в OnDrop пишем:
procedure TForm1.DropTextTarget1Drop(Sender: TObject;
ShiftState: TShiftState; APoint: TPoint; var Effect: Integer);
begin
Memo1.Lines.Text:=DropTextTarget1.T ext
end;