Delphi-PRAXiS - Delphi Editschriftfarbe ?

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)

- - Delphi Editschriftfarbe ? (https://www.delphipraxis.net/65582-editschriftfarbe.html)

Editschriftfarbe ?

hallo,

ich möchte wenn ich in ein edit eine minuszahl ( zb. -10 ) eingebe das die schriftfarbe der zahl rot wird ?
mfg vader

Re: Editschriftfarbe ?

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

Re: Editschriftfarbe ?

besten dank !
mfg vader