Abfrage ob EditTextFeld Zahl oder Buchstabe

[Sir Rufo]

Zitat von mat72:

Kann ich die Abfrage so weit ändern, dass schon beim wechsel auf das nächste TextFeld eine Überprüfung stattfindet?

Wie schon erwähnt im TEdit.OnExit aber auch im TEdit.OnChange

Delphi-Quellcode:

procedure TForm1.FloatEditOnChange( Sender : TObject );
var
  lEdit : TEdit;
  lValue : Extended;
begin
  if ( Sender is TEdit ) then
    begin
      lEdit := Sender as TEdit;
      if ( lEdit.Text = '') or TryStrToFloat( lEdit.Text, lValue ) then
        lEdit.Font.Color := clWindowText
      else
        lEdit.Font.Color := clRed;
    end;
end;

Diese Methode einfach nun bei allen Edit-Felder (die Float-Werte enthalten sollen) dem Event OnChange zuweisen.