Hier mal mein ganzer Code und worum es geht:
Delphi-Quellcode:
for i := AllTypedKeys.Count-1 downto 0 do
begin
Str := AllTypedKeys[i]+Str;
Label1.Caption := Str;
end;
if Str = 'ABC' then
begin
Ln := SynMemo1.CaretY;
CurPosition := SendMessage(SynMemo1.handle,EM_LineIndex,Ln,0);
CurPosition := SynMemo1.SelStart-CurPosition;
SynMemo1.SelStart := CurPosition+1;
SynMemo1.SelText := 'DEF';
end;
Angenommen ich tippe ABC ein, dann sollte dem Code nach, dachte ich, DEF HINTER ABC gesetzt werden aber der macht etwas murks. Heraus kommt: AB DEFC