Cursorposition("Zeichenposition") im Edit feststellen

[Teekeks]

Ich weis nicht ob ich hier richtig bin, ich schreib´s mal trozdem.

Ich würde gerne ein Edit erstellen indem man nur Zahlen eingeben kann und das nach dem 2. und 5. Zeichen ein Punkt (der nicht
überschrieben werden kann) gesetzt wird. Weiter würde ich gerne das Edit nur im "Überschreib-Modus" betreiben.

Jetzt hat sich mir u.a. folgende Frage gestellt:
Wie kann ich jetzt die Cursorposition (an welchem Zeichen er sich gerade befindet) feststellen?

gruß Teekeks

ps: Ich weis das es ein Maskedit gibt, aber es gibt diverse Gründe warum ich das nicht nehme.

[toms]

In der OH unter TEdit -> Eigenschaften wirst du fündig.

[Teekeks]

THX. Ich habs gefunden.

[Teekeks]

Ich denke du meinst die property CaretPos, aber mein Lazarus meint zu mir "/home/peter/lazarus/components/Edits/mydatumedit.pas(61,33) Error: Identifier not found "CaretPos"".
Woran mag das liegen?

[Blackheart]

Delphi-Quellcode:

procedure TForm1.EditClick(Sender: TObject);
begin
  Caption:=IntToStr(Edit.SelStart);
end;

[Teekeks]

Ah, Danke.