DragDrop von TMemo auf TRichEdit

[bitsetter]

Hallo,

geht das nicht eher so?

Delphi-Quellcode:

procedure TForm1.RichEdit1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if (Source is TMemo) then
   (Sender as TRichEdit).Text := TMemo(Source).Text;
end;

procedure TForm1.RichEdit1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := Source is TMemo;
end;

Edit: onDragOver und onDragDrop sind Ereignisse des TRichedit wie man sieht.