Hallo!
Ich möchte per Drag & Drop den markierten Text aus einem Memo in ein anderes Memo verschieben.
Ich markiere den Text mit der linken Maustaste und dann wenn ich mit der linken Maustaste das zweite mal auf denn markierten Text drücke soll dass Drag & drop aktiviert werden.
Delphi-Quellcode:
procedure TForm1.mousedown1(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (Button = mbLeft) and (memo1.SelText <> '') then
memo1.BeginDrag(false);
end;
Nur sofort wenn ich mit der linken maustaste auf denn markierten Text drücke wird die markierung wieder gelöscht.
Wie kann ich dieses machen?