Pelo que compreendi da duvida, isso vai funcionar sim, mas pode se utilizar um
novo recurso, colocar essa funcao atribuida de forma conjunta ao evento on
change do edii, ai quando ele colar, a funcao tb vai verificar se existem
letras,
espero ter sido claro, se nao tiver sido e so perguntar d
E assim resolve o problema dele de poder usar CRTL+V e CRTL+C?
[]´s
Rodrigo O. Farias
- Original Message -
From: José Augusto S. de Oliveira
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, January 19, 2005 11:12 AM
Subject: Re: [delphi-br] Como anular teclar da melhor
//Crie essa função publica no seu sistema,
Function CriptCH(Letra:String):Boolean;stdcall;
Var AlfaValido: String;
Begin
AlfaValido := '0123456789;
if Pos(Letra,AlfaValido) = 0 then begin
MessageDlg('Letra Inválida !',mtError,[mbok],0);
result := False
end
else
re
Sent: Wednesday, January 19, 2005 10:56 AM
Subject: [delphi-br] Como anular teclar da melhor forma ???
Para o usuário digitar somente números num TEdit, estou colocando o
seguinte código no evento OnKeyPress:
if not (key in ['0'..'9', #8, #9, #27, #13]) then
s
- Original Message -
From: Osmar de Souza Júnior
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, January 19, 2005 10:56 AM
Subject: [delphi-br] Como anular teclar da melhor forma ???
Para o usuário digitar somente números num TEdit, estou colocando o
seguinte código n
Para o usuário digitar somente números num TEdit, estou colocando o
seguinte código no evento OnKeyPress:
if not (key in ['0'..'9', #8, #9, #27, #13]) then
key := #0;
O problema é que isso restringe Ctrl+C e Ctrl+V, por exemplo. Só é
possível copiar e colar via mouse (mas é um p
6 matches
Mail list logo
