Hallo!
Ich würde gern per Drag & Drop den markierten Text (SelText) aus einem Memo in ein anderes verschieben. Im Grunde ist mir Drag & Drop schon halbwegs bekannt, nur habe ich ein Problem:
Delphi-Quellcode:
procedure TfrmMDIChild.mFileMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if (Button= mbLeft) and (mFile.SelText <> '') then mFile.BeginDrag(FALSE);
end;
Durch den Klick wird SelText gelöscht. Klar soll das auch möglich sein (sonst kann man die Cursorposition mit der Maus nicht bestimmen), aber es soll durch längeres gedrückthalten der Maustaste auch Drag & Drop möglich sein. Ich stelle mir das im Prinzip so wie im MS Word vor, nur werden dort keine Memos verwendet.
Ist das mit einem Memo überhaupt möglich?
(bei der Suche konnte ich kein zufriedenstellendes Ergebnis finden)
mfg,
EConvertError