Fonte colorida em um edit...

19/05/2003

1

É o seguinte: tem um edit onde digito números e através de um botão incrementa em outro edit. Se o número for negativo ele aparecerá em vermelho e positivo aparecerá em azul.
Como faço isso?

Valeu.


Responder

Posts

19/05/2003

Pardal3000

Olá,

If StrToInt(Edit1.Text)<0 Then
Begin
Edit2.Font.Color:=clRed;
...
end;

Acho que assim funciona... agora não tenho certeza se o Delphi irá identificar o valor negativo com um sinal de menos (´-´)... vc pode fazer assim também:

If Pos(´-´, Edit1.Text)>0 Then
Begin
Edit2.Font.Color:=clRed;
...
end;


Responder

20/05/2003

Chap

Deu certo... Valeu cara.


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira