Fonte colorida em um edit...
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
Clique aqui para fazer login e interagir na Comunidade :)