Text an der Stelle des Cursors einfügen!

[Delphi-Padawan]

Wie kann ich einen Text an einer bestimmten Stelle in einem Memo Feld einfügen? Also: der Benutzer geht mit der Maus irgend wo hin und setzt dort den Cursor hin. Dann wählt er im Menü etwas aus und da, wo der Cursor gerade ist, wird der ausgewählte Text eingefügt!

[hboy]

das ist SelStart:

Memo1.SelStart gibt dir die aktuelle Cursorposition zurück. Wenn du den ganzen Text der Memo in eine string-variable reinpackst kannst du mit gesamtstring := insert('-eingefügter text-',gesamtstring,memo1.SelStart); was reinkleben.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
  s := memo1.Text;
  insert('<insert>',s,memo1.SelStart);
  memo1.Text := s;
end;

[fkerber]

Hi!

Oder so:

Delphi-Quellcode:

Memo1.Seltext:=Memo1.Seltext + 'eingefügter Text';

Ciao fkerber