Stringgrid Probleme mit Buchstaben

[the qwertzer]

Hallo

Ich programmiere gerade eine Art Haushaltsbuch. Dabei soll sich so ziemlich alles in einem Stringgrid abspielen.
In diesem Stringgrid gibt es 7 Spalten und 500 Zeilen. In der 7. Spalte sollen ausschließlich Zahlen eingetragen werden .
Mein Problem ist nun, dass wenn ich Zahlen eingebe und dann hintendran noch ein anderes Zeichen setze (Bsp 4566g) dann stürzt das Programm ab. Ich möchte letztendlich folgendes erreichen: Wenn ich in Spalte 7 keine Zahl oder Komma eingebe, soll es entweder eine Fehlermeldung geben (application.messagebox), ohne dass das Programm abstürzt. Oder alle Zeichen außer Zahlen und das Komma werden für diese Spalte von Anfang an deaktiviert.

Hab gerade folgendes versucht:

Delphi-Quellcode:

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
       if Key = #13 then Key := #0;
       if not (Key in ['0'..'9', #8, #44]) then Key := #0;
end;

Hierbei wird aber leider für das ganze Stringgrid die Buchstabeneingabe deaktiviert. Ich weiß nicht was ich schreiben muss, damit dies nur für Spalte 7 gilt.

[Keldorn]

Hallo
bei keypress wir kein acol/arow mit übergeben, aber mit Stringgrid.col bekommst du ohne weiteres die gerade aktuelle Spalte raus also

Delphi-Quellcode:

if (sender as tstringgrid).col=7 then
  ...

Gruß Frank

[the qwertzer]

cool funktioniert wie geschmiert danke.