ich bekomms einfach nicht hin.
Delphi-Quellcode:
procedure TForm1.SynMemo1KeyPress(Sender: TObject; var Key: WideChar);
begin
text := SynMemo1.Text;
Ln := SynMemo1.CaretY;
CurPosition := SendMessage(SynMemo1.handle,EM_LineIndex,Ln,0);
CurPosition := SynMemo1.SelStart-CurPosition;
end;
procedure TForm1.SynMemo1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Caption := '('+IntToStr(CurPosition)+') "'
+Copy(SynMemo1.Text, CurPosition-3, 3)+'"'; // nur zum gucken
if Copy(SynMemo1.Text, CurPosition-3, 3) = 'ABC' then // ****
Insert('CDE', text, CurPosition+3);
end;
wenn dann denn mal ABC da wo die ****'s sind zutrifft passiert einfach nix