Ich möchte den Inhalt eines TMemo mittels DragDrop in ein TRichEdit schreiben,
dazu benutze ich diesen Code:
Delphi-Quellcode:
procedure TForm1.InhaltDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if (Source is TMemo) then
Richedit1.text := (Source as TMemo).Text;
end;
procedure TForm1.RichEdit1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := true;
end;
Leider passiert überhaupt nichts, er schreibt den Inhalt nicht in das Richedit.
Wenn ich die Zeile zum Überschreiben ins DragOver setze funktionierts. Allerdings
soll man vorher den Mausbutton los lassen und so muss es im DragDrop bleiben.
Vielleicht kann mir jemand helfen.
Grüße