DragDrop von TMemo auf TRichEdit

[marabu]

Hallo Sammy,

versuche es so:

Delphi-Quellcode:

procedure TDemoForm.RichEditDragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
  pt: TPoint;
begin
  pt := Point(X, Y);
  with Sender as TRichEdit do
  begin
    SelStart := SendMessage(Handle, EM_CHARFROMPOS, 0, Integer(@pt));
    SelText := (Source as TMemo).Text;
  end;
end;

Grüße vom marabu