Ergebnis der Suchanfrage

• Forum: GUI-Design mit VCL / FireMonkey / Common Controls

  Re: Editschriftfarbe ?

    Delphi
    by ManuMF, 18. Mär 2006
  Hallo,
  
  erstelle einfach das Ereignis onChange (doppelklick ins Edit) und schreibe dann in die Prozedur folgendes:
  
  
  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