怎么样将TMemo控件中选中的内容通过拖放的方式复制到TEdit控件中？急！

Question

怎么样将TMemo控件中把选中的文本内容通过拖放的方式复制到TEdit控件中？急！最好有简单的代码说明。谢谢！

Answer 1

不会，可以参考下面的http://expert.csdn.net/Expert/topic/2263/2263232.xml?temp=.5675318

Answer 2

左键选择Memo中的文本, 右键可以拖动选中的文本
procedure TForm2.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Memo1.SelLength <> 0 then
  begin
    memo1.BeginDrag(True);
  end;
end;procedure TForm2.Memo1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  memo1.EndDrag(False);
end;procedure TForm2.Edit1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
   if Source is TMemo then
  begin
    Edit1.Text := (Source as TMemo).SelText;
  end;
end;procedure TForm2.Edit2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Edit2.BeginDrag(True);
end;procedure TForm2.Edit2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Edit2.EndDrag(True);
end;procedure TForm2.Edit1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := True;
end;