Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
4. Nov 2003
onKeyPress wird jedesmal wenn eine Taste gedrückt wurde abgearbeitet.
Und wenn man den Text der Zelle (die in diesem Moment bearbeitet wird) auf vorhandene Punkte prüft, kann man beim vorhandensein eines Punktes verhindern das ein neuer eingegeben wird. :mrgreen:
If (Key := '.') and (Pos(StringGrid1.Cells) > 0) Then Key := #0;
If {Punkt wurde eingegeben} and {ist schon ein Punkt...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
4. Nov 2003
Wenn nur ein Feld ausgewählt werden kann, geht auch das:
z.B.: StringGrid1.Options := ; {kein goRangeSelect}
StringGrid1.Cells
:coder:If StringGrid1.Cells = MENGE) Then Begin
//nur '.' und '0'-'9' zulassen
If not (Key in ) Then Key := #0;
//wenn '.' eingegeben und schon vorhanden - '.' nicht zulassen
If (Key := '.') and (Pos(StringGrid1.Cells) > 0) Then Key := #0;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
4. Nov 2003
If StringGrid1.Cells = MENGE) Then Begin
//nur 0-9 und . zulassen alle anderen nicht
{Case Key of
#33..#45: Key := #0;
#47: Key := #0;
#58..#255: key := #0;
End;}
//nur 0-9 und . zulassen
If not (Key in ) Then Key := #0;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
4. Nov 2003
kannst abfragen ob nur 1 Punkt vorhanden ist.
Zeig mal wie du bis jetzt (auf 0-9) abfragst. (onKeyPress)
Und wenn mehrere Punkte vorhanden sind. Ob z.B. der 1. oder der Letzte Punkt bleiben soll)