fokusiertes feld in einem grid ansprechen & wert ändern

[5etH]

Hallo zusammen,

ich arbeite momentan mit mehreren Stringgrids, mit dessen Inhalten werden sachen errechnet, daher würde ich gerne wissen wie ich am besten abfangen kann das der Benuter einen Buchstaben eingegeben hat. Ich habe es schon mit einem Try Except probiert ,aber dann kommt diese meldung oft, da ich nicht weis wie ich das Feld ansprechen und ändern kann. ich hoffe ihr könnt mir helfen eine Lösung zu finden ..

Hier ist mein bisheriger Programmteil:

Delphi-Quellcode:

procedure TFinT.StringGrid1KeyUp(Sender: TObject);

begin
  try
    umsatz();
    errechnen();
    optionen.gesamt(fint.stringgrid1);
    optionen.gesamt(fint.stringgrid2);
    optionen.gesamt(fint.stringgrid3);
    optionen.gesamt(fint.stringgrid4);
    optionen.gesamtteil(fint.stringgrid5);
  except
    showmessage('Hier können sie nur Zahlen eintragen!')
  end;
end;

schonmal vielen Dank
euer 5etH

[s-off]

Hallo,

abfrage, ob in dem Feld nur Buchstaben eingegeben werden, kannst Du z.B. so:

Delphi-Quellcode:

Procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer; Const Value: String);
Var
   cLastChar: Char;
Begin
   If Value = '' Then
      Exit;

   cLastChar := Value[Length(Value)];
   If Not (cLastChar In ['A'..'Z', 'a'..'z']) Then
      ShowMessage('Du siehst nicht aus wie ein Stabe');
End;

Damit wird nach jeder Änderung des Textes im InplaceEditor das letzte Zeichen überprüft.
Leerzeichen, Löschtaste etc. musst Du ggf. selber noch implementieren, wenn gewünscht.
Wenn etwas in die Zelle hineinkopiert wird, funktioniert das so nicht.

Da müsstest Du dann ggf. Zeichen für Zeichen einzeln durchgehen.

[5etH]

wie müsste ich denn den aufruf gestalten, da ich bei den letzten parametern nicht ganz durchblicke

[s-off]

Ähm, dieses Event wird von dem Grid angeboten - 'OnSetEditText'.