Fórum Determinar um mínimo de caracter num DBEdit #183919
24/09/2003
0
Tem como determinar um mínimo de caracter para a pessoa digitar num dbedit? Se não ela não consegui sair do campo.
Janete
Curtir tópico
+ 0
Responder
Posts
24/09/2003
Imoreira
Faça assim:
procedure TForm1.edit1Exit(Sender: TObject);
begin
if (length(edit1.text)<3) then begin
edit1.setfocus;
end;
end;
procedure TForm1.edit1Exit(Sender: TObject);
begin
if (length(edit1.text)<3) then begin
edit1.setfocus;
end;
end;
Responder
Gostei + 0
24/09/2003
Bacalhau
Não experimentei mas creio ser assim. Na propriedade OnExit do edit escrever:
if length(edit1.text) = 0 then edit1.setfocus;
Isto é para string em branco.
Para - por exemplo - forçar a ser superior a 3 caracteres seria assim
if length(edit1.text) <= 3 then edit1.setfocus;
if length(edit1.text) = 0 then edit1.setfocus;
Isto é para string em branco.
Para - por exemplo - forçar a ser superior a 3 caracteres seria assim
if length(edit1.text) <= 3 then edit1.setfocus;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)