Fonte colorida em um edit...
É 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
Curtidas 0
Respostas
Pardal3000
19/05/2003
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;
GOSTEI 0
Chap
19/05/2003
Deu certo... Valeu cara.
GOSTEI 0