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:

markieren

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

Hi,

Also ich habe kein Plan wie das über Drag & Drop laufen soll hätte da aber eine Alternative anzubieten wenn du den Text von Memo1 zum zweiten Memo kopieren willst

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Memo2.Seltext := Memo1.Seltext;

Vielleicht hilft es dir ja weiter

Viele Grüße

alanblack