请教关于拖动的问题

[pekiee]

我想从一个listbox里拖一个字符串到richedit 里
字符串插入到鼠标拖到的地方

[zswangII]

procedure TForm1.RichEdit1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
I: Integer;
vPoint: TPoint;
begin
vPoint.X := X;
vPoint.Y := Y;
I := LoWord(TRichEdit(Sender).Perform(EM_CHARFROMPOS, 0, Longint(@vPoint)));
TRichEdit(Sender).SelStart := I;
TRichEdit(Sender).SelLength := 0;
TRichEdit(Sender).SelText := TListBox(Source).Items[TListBox(Source).ItemIndex];
end;

procedure TForm1.RichEdit1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
var
I: Integer;
vPoint: TPoint;
begin
Accept := (Source is TListBox) and (TListBox(Source).ItemIndex >= 0);
if not Accept then Exit;
TRichEdit(Sender).SetFocus;
vPoint.X := X;
vPoint.Y := Y;
I := LoWord(TRichEdit(Sender).Perform(EM_CHARFROMPOS, 0, Longint(@vPoint)));
TRichEdit(Sender).SelStart := I;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.DragMode := dmAutomatic;
end;

[cll007]

学习一下下