拖动编程 ( 积分: 20 )

效果：
把MEMO1里的内容拖动到MEMO2里面去！

procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbleft then
memo1.BeginDrag(false);
end;

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

procedure TForm1.Memo2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if(sender is Tmemo)and(source is Tmemo) then
(sender as Tmemo).Lines.Add(memo1.Text);
end;

end.
刚刚调试完毕。应该没问题

thank you