有关Drag的应用的问题

Question

比如说现在有2个Tedit控件,我想点击控件1然后拖动它到控件2再松开鼠标,这时想让控件2的Text等于控件1的Text,而如何拖到其他的地方松开则什么也不发生,请问应该如何实现,谢谢

Answer 1

示例代码如下:
//注意,请设置edit1的dragmode 设置为 dmAutomatic//在Edit2的OnDragDrop事件中写如下代码:
procedure TForm1.Edit2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
edit2.Text:=TEdit(Source).Text;
end;//在Edit1的OnDragOver事件中写如下代码:
procedure TForm1.Edit2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
Accept:=true;
end;