Edit negativo 2

Delphi

10/06/2004

Gostaria de fazer uma aplicaçao com valores negativos.
usando o componente edit.

Tentei varias rotinas.

mais nada consegui.

gostaria que o edit só receba valores negativos.
e não positivo.

grato se ajudarem....

[b:ad7f354a30][color=red:ad7f354a30]Título editado pelo Moderador (AZ) - Removido: ´Help!!!!´[/color:ad7f354a30][/b:ad7f354a30]


Gollum

Gollum

Curtidas 0

Respostas

Dbergkamps

Dbergkamps

10/06/2004

olha ai vai esta rotina, mas so testei ela com o currency edit, vc pode encontra-lo www.fteam.com/bin/countdown.cgi?currencyedit.zip.
procedure TForm1.Button1Click(Sender: TObject);
var
Teste: Currency;
begin
try
 Teste:=StrtoInt(Edit1.Text);
 If Teste > 0 then
 begin
  Application.MessageBox(´Insira um número Negativo´, ´Erro´,MB_OK + MB_DEFBUTTON1);
 end
 else
  Label1.Caption:=CurrtoStr(teste);
 except
 on EConvertError do
 Application.MessageBox(´Valores Inválidos. Não use pontos nem letras´,´Erro´, MB_OK + MB_ICONERROR + MB_DEFBUTTON1);
end;
end;

//esta rotina verifica o edit e exibe uma mensagem caso o valor seja positivo. Se não der certo, coloque o problema de forma mais detalhada.



GOSTEI 0
POSTAR