procedure TfrmVLENTR.ValidaKey(Const Sender: TObject; var key: char);
begin
if not(key in ['0'..'9','.',',',#8,#13]) then
key := #0;
if key in [',','.'] then
key := DecimalSeparator;
if key = DecimalSeparator then
if pos(key,TMaskEdit(Sender).Text) <> 0 then
key := #0;
end;
na dia onde a encontrei, foi colocado para usá-la no evento onchange. Gostaria de saber qual procedimente de fazer para colocar esta procedure no meu código, onde devo declara-la, e como devo chama-la (estou usando o componente TMaskEdit).
Pergunta
rochajl
Achei a seguinte procedure:
procedure TfrmVLENTR.ValidaKey(Const Sender: TObject; var key: char);
begin
if not(key in ['0'..'9','.',',',#8,#13]) then
key := #0;
if key in [',','.'] then
key := DecimalSeparator;
if key = DecimalSeparator then
if pos(key,TMaskEdit(Sender).Text) <> 0 then
key := #0;
end;
na dia onde a encontrei, foi colocado para usá-la no evento onchange. Gostaria de saber qual procedimente de fazer para colocar esta procedure no meu código, onde devo declara-la, e como devo chama-la (estou usando o componente TMaskEdit).
Se alguém puder ajudar, fico grato.
Até mais.
Link para o comentário
Compartilhar em outros sites
8 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.