Ir para conteúdo
Fórum Script Brasil
  • 0

Editar Maskedit (Resolvido)


koala

Pergunta

ph34r.gif

Por favor , preciso de ajuda , estou desenvolvendo um software como trab bimestral , mas não sei como é o código para editar a maskedit para não aceitar

letra ,só numero e sem precisar mexer na propriedade editmask para fazer isto.Eu preciso da linha de código (acho que é editfloat...)?

muito obrigado pela colaboração.

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Ta ai amigão:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var cValor : Char;
begin
if ( Key in ['.',','] ) then
    begin
      Key := #44;
      if Pos(Key,cValor) <> 0 then
      Begin
        Beep;
        Key := #0;
      End;
    End;
  if not ( Key in ['0','1','2','3','4','5','6','7','8','9',',',#8,#7] ) then
  Begin
    Beep;
    Key := #0;
  End;
end;

coloque isso no ONKeyPRess do edit

falou

V&A

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...