Curser-Position im Edit-Feld feststellbar?

Dafduf · Hält's aus hier Beiträge: 11

hi, alle zusammen,
weiss jemand vielleicht, ob es eine möglichkeit gibt, die curser-position im edit-feld festzustellen.

hab nämlich folgendes problem:
in ein editfeld sollen nur zahlen eingegeben werden können und ein minus-zeichen.
das mit den zahlen hab ich schon hingekriegt, auch dass das minuszeichen nur an der ersten stelle eingegeben werden kann (mit if selstart>0 then Key:=#0). aber wenn der benutzer wieder an den anfang geht, kann er nocheinmal ein minus-zeichen eingeben, obwohl es ja schon eines gibt.
ich möchte nun abfragen können, ob an der 2. stelle im editor ein minuszeichen schon steht, falls ja, dann wieder Key:=#0.
danke im voraus.
MfG dafduf

Fabian W. · Beiträge: 1766 Win 7 D7 PE

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

starsurfer · Verfasst: Mi 22.03.06 18:13

markieren

Delphi-Quelltext

1:
2:

edit1.selstart//Pos des Cusors im Edit Feld
if edit1.text[1]='-' then key:=#0;//sollte an ersten position im editfeld ein "-" Stehen dann key =#0 andernfalss lässt er den tastendruck durch...

so gehts(denk ich ma)...

_________________
GEIZ IST GEIL! - Ihr Sozialamt

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme