Fórum Fonte colorida em um edit... #161160
19/05/2003
0
É 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.
Como faço isso?
Valeu.
Chap
Curtir tópico
+ 0
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;
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
Gostei + 0
20/05/2003
Chap
Deu certo... Valeu cara.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)