Text einfügen bei Cursorposition

[Tommy1988]

Wieder ich :(

Ich hatte mir folgendes gedacht, auf klick auf einen button soll ein text
da im memo eingefügt werden wo der cursor sich grade befindet.

Delphi-Quellcode:

var
alignleft : String;
Point : TPoint;
begin
// bei cursor pos einfügen
  Point := Mouse.CursorPos;
  Mouse.CursorPos := Point;
 SpeedButton1.Perform(WM_LBUTTONDOWN,0,0);
 Sleep(200);
 SpeedButton1.Perform(WM_LBUTTONUP,0,0);
end;

mein code ist aber sehr umständlich, ich muss erst auf den speedbutton zurückgreifen, der
dann einen text in die zwischenablage kopiert und wieder ausgibt..

geht das nicht einfacher, mit nur einem button?
etwa so:

Delphi-Quellcode:

var
alignleft : String;
Point : TPoint;
begin
// text bei cursorposition einfügen
end;

Edit: Memo.Lines.Add wird wohl nicht funktioniere, denn dann wird der text
ans ende des memos geschrieben wie ich gesehen habe.

[Tommy1988]

Lösung gefunden :wall:
SelText