Dúvida Sobre Edit

[kcris]

Por favor, alguém poderia me dizer como fazer para que o usuário só digite números no edit?

Decli := StrToInt(edDeclividade.text);

Faço essa conversão, quando ele digita texto o programa da erro e para, mas quero eu fazer uma mensagem de erro e dar um setfocus para ele digitar de novo, mas como?

[s3c]

Acho que o mais fácil seria você utilizar o evento onKeyPress do TEdit.

[kcris]

Mas o que eu escrevo?

if edit.text = ???? then

Erro

Mais uma pergunta: Faço um cálculo que dá número com virgula e o exibo em um edit, só que eu quero deixar só 2 digitos depois da virgula, mas não sei como fazer para eleminar os outros números. Como?

[Guest Nitsch]

Cara dentro do KeyPres controle os codigos ASCII caso esteja fora entre 0 á 9 incluindo a virgura voce deixa passar. Outra dica é utilizar o maskEdit ele já possui a mascara para isso.

[s3c]

Só números no TEdit:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if ((Key < '0') or (Key > '9')) and (Key <> #8) then
  begin
    Key := #0;
    ShowMessage('Caracter Inválido no Edit Numérico !');
  end;
end;

Para deixar só 2 dígitos decimais, acho que assim resolve:

f := Trunc(f*100) / 100; // f é o Double