Evento do Dbedit

Question

Galera...Como fa�o pra soh digitarem do numero 0 ao 9 no dbedit e so UMA virgula ou ponto...e em qual eventouso o banco de dados acces e  lah ta definido como MOEDAObrigado...

Gandalf.nho · Answer

Se � DBEdit, o pr�prio campo se encarrega de n�o aceitar valores inv�lidos com seu tipo de dados....

Tremonti · Answer

Nao se encarrega nao, meu bd � accesjah mudei currency pra true e tudo mais...Mas nem rola...Abra�os......

Thomaz_prg · Answer

cara, poe a� no onKeyPress do seu dbedit:if (key = �,�) and ( pos( �,� , (sender as TDbEdit).Text )> 0 ) then  Key := #0;...

Tremonti · Answer

Valewwwww cara....Funcionou Beleza Pura!!!...

Jbspio · Answer

[quote:97b8c67273=�thomaz_prg�]cara, poe a� no onKeyPress do seu dbedit:if (key = �,�) and ( pos( �,� , (sender as TDbEdit).Text )> 0 ) then  Key := #0;[/quote:97b8c67273]  como fa�o o mesmo processo em um tedit, ja tentei o mesmo e n�o deu certo  valew...

R�mulo Barros · Answer

[quote:5f3d272f68=�jbspio�]como fa�o o mesmo processo em um tedit, ja tentei o mesmo e n�o deu certo [/quote:5f3d272f68]Coloque o c�digo abaixo no evento OnKeyPress do Edit:[code:1:5f3d272f68]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin   If(Not(Key In &#91;�0�..�9�,�.�,�,�,8,13&93;))Then   Begin      Key := 0;      Exit;   End;   If(Key In &91;�.�,�,�&93;)Then     If((Pos(�.�,Edit1.Text) > 0 )Or (Pos(�,�,Edit1.Text) > 0))Then     Begin        Key := 0;        ShowMessage(�J� existe v�rgula ou ponto�);     End;end;[/code:1:5f3d272f68][color=red:5f3d272f68][u:5f3d272f68][b:5f3d272f68]Obs:[/b:5f3d272f68][/u:5f3d272f68][/color:5f3d272f68][b:5f3d272f68]8   respresenta a tecla BackSpace13 representa a tecla Enter[/b:5f3d272f68]...

F�rum Evento do Dbedit #261513