Text an Cursorposition einfügen

[Nalincah]

Wie kann ich in einem Memo Text an der aktuellen Cursorposition einfügen?

[Alexander]

Delphi-Quellcode:

    Memo1.SetSelTextBuf('TEST);

ungetestet ;-)

[Nalincah]

Also wie du das geschrieben hat, klappt es. Nur so leider nicht

Delphi-Quellcode:

Memo1.SetSelTextBuf(' ' + TButton(Sender).Caption + ' ');

und so auch nicht

Delphi-Quellcode:

Memo1.SetSelTextBuf(' ' + PChar(TButton(Sender).Caption) + ' ');

Fehler:
[Fehler] uFrmDesignExpression.pas(96): Inkompatible Typen: 'String' und 'PChar'

[Mirilin]

:hi:

Delphi-Quellcode:

MemoText.SelText := EditInsertText.Text;

[Alexander]

Delphi-Quellcode:

  Memo1.SetSelTextBuf(PChar(' ' + TButton(Sender).Caption + ' '));

[Nalincah]

Danke....Klappt!!