Editschriftfarbe ?

[ManuMF]

Hallo,

erstelle einfach das Ereignis onChange (doppelklick ins Edit) und schreibe dann in die Prozedur folgendes:

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  // StrToIntDef wandelt den Text in eine Zahl, und wenn Mist
  // drinsteht, gibt die Funnktion einfach Null zurück.
  If (StrToIntDef(Edit1.Text, 0) < 0) then
    Edit1.Font.Color := clRed
    // Rot färben, wenn Zahl klein er Null
  else
    Edit1.Font.Color := clWindowText;
    // sonst normal färben (clWindowText = Standardfarbe, schwarz)
end;

Gruß,
ManuMF