Noch nicht ausprobiert, Ereignis OnDBGrid1DrawColumnCell?
Ganz grobe Idee für das Prinzip:
Delphi-Quellcode:
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
Try
StrToInt(Column.Field.AsString);
except
Column.Field.AsString := 'Bitte keinen Mist eingeben';
end;
end;
Natürlich sollte die Fehlermeldung zielführend sein und man muss prüfen, in welcher Spalte (DataCol) man sich befindet, da die Prüfung ja ggfls. abhängig von der geänderten Spalte sein kann.
Über Column.Field.DataType kann man auch abfragen, von welchem Typ die gerade dargestellte Spalte ist und kann dann entsprechend reagieren.
In Column.Field.FieldName bekommt man den Spaltennamen des Wertes.
Wann genau das Ereignis aufgerufen wird, hab' ich nicht nachgeschaut. Es kann aber sein, dass die Prüfungen sehr oft ausgeführt werden. Ob das Ereignis für eine Plausibilitätsprüfung wirklich sinnvoll einzusetzen ist, wage ich daher eher zu bezweifeln.
Dann gäbe es eventuell noch das Ereignis OnDataSourceDataChange zur dem TDBGrid zugewiesenen TDataSource:
Delphi-Quellcode:
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
Try
StrToInt(Field.AsString);
except
Field.AsString := 'Bitte keinen Mist eingeben';
end;
end;
Nächste Möglichkeit wäre das Ereignis OnBeforePost der TDataSet-Komponente, die der DataSource-Eigenschaft des TDBGrid zugewiesen wurde:
Delphi-Quellcode:
procedure TForm1.DataSetKomponenteBeforePost(DataSet: TDataSet);
begin
Try
StrToInt(DataSet.FieldByName('ZuPruefendeSpalte').AsString);
except
DataSet.FieldByName('ZuPruefendeSpalte').AsString := 'Bitte keinen Mist eingeben';
// oder mit
DataSet.Cancel;
// das Speichern abbrechen.
end;
end;
Musst halt mal ausprobieren, ob da ein für Dich sinnvoller und brauchbarer Ansatz bei sein könnte.