ondragdrop事件？

Question

从richedit拖文本到edit，其他的都一样
procedure TForm1.Edit1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if Source is TRichedit then
    Accept:=true
  else
    Accept:=false;
end;procedure TForm1.Edit1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if Source is TRichedit then
    Edit1.Text :=s;
end;procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbLeft then
  begin
    if RichEdit1.SelLength >0 then
    begin
      s:=RichEdit1.seltext;
      RichEdit1.BeginDrag(false);
    end;
  end;
end;procedure TForm1.RichEdit1EndDrag(Sender, Target: TObject; X, Y: Integer);
begin
  if target<> nil then
    RichEdit1.Update ;
end;

Answer 1

tadoquery（其他的dataset都有）的组件编辑器就是一个很好的拖动的例子，在一个listbox放上字段，支持拖动字段。
你可以看看它的源码（仔细找找看，我记不清具体在哪里了）