Fórum Validar InputQuery para receber apenas números? #478805

procedure TfrmMonitoraPDBO.dbgClienteAplicacaoTitleClick(Column: TColumn);
 var
  valor: string;
 const
  teclasDec = ['0'..'9',',',#8, #13];
begin
      valor := '0';
      InputQuery('Pesquisa:', 'Informe o código para pesquisa:', valor);
      if valor <> '' then
       begin
           //verifica se foi adicionado um número
           if not (Key in teclasDec) then
            begin
             Key := #0;
             MessageDlg('Campo Numérico!', mtError, [mbOK], 0);
            end;
       end;

end;