有关文本拖放问题，解决在线马上给分！！！！！

[huiwww]

谁能提供这样的程序代码：
从一个edit1里的选定的文本内容用鼠标拖放到edit2,使得edit2的文本框里获取从edit1里托过来的选定的内容“字符串”。
解决在线马上给分！！！！！

[lynew]

有很多种方法，最简单是把edit改成Richedit

[jan2002]

同意楼上 用richedit!

[huiwww]

我要的不是简单的陈述，要的是代码！！

[上海老李]

呵呵，十足菜鸟真是对呀

[FBugFramework]

关注

[jan2002]

不要急着要代码
你先放两个richedit拖拖看 ：）

[fengjn]

procedure TForm1.Edit2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if source is TEdit then accept:= true;
end;

procedure TForm1.Edit2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
edit2.SelText:= edit1.SelText;
end;

edit1.dragmode:= dmAutomatic;

[zdcnow]

随便写,可以用,楼主和各位再优化优化吧.

1.Edit1的DragMode设置为dmAutomatic
2.Edit2的OnDragOver事件
procedure TForm1.Edit2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
edit2.Text:=edit1.Text;
end;

[huiwww]

不好意思，大家用心了，大家的方法我都会，
我希望两个edit能做出象两个richedit的拖放效果。
鼠标能选定edit1文本内容，后又能将选定内容拖到edit2里去

[FBugFramework]

我做了，结果好象不对呢。

[FBugFramework]

richedit 在哪里的 我怎么找不到呐~~

[fengjn]

看清我的贴子，是选定的内容。