drag问题？？？

Question

怎么把edit里面选定的字符串，注意，是选定的字符串drag到memo中，可能是很菜的问题，但手上没书，不知道怎么搞！

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.DragMode := dmAutomatic;
end;procedure TForm1.Memo1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source = Edit1;
end;procedure TForm1.Memo1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  TMemo(Sender).Lines.Add(TEdit(Source).SelText);
end;—————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
—————————————————————————————————

Answer 2

呵呵，都说了下载些Ebook看看了

Answer 3

ebook看过了，都是介绍整个输入框的drag，不能是seltext，
to lxpbuaa(桂枝香在故国晚秋):这种方法根本不能在edit中选取我想要字符，然后drag过去。
我再说清除一点，就是先在edit中选取我想要的字符，然后drag过去memo中！

Answer 4

我看了，
tedit好象根本没有实现IDropSource接口，不能拖动上面的内容，你应该自己实现那个接口，做一个新的组件

Answer 5

另外memo还要实现IDropTarget，可以去看看
http://www.csdn.net/develop/read_article.asp?id=21115不过delphi的TControl封装了,有个OnDragDrop事件