Determinar um mínimo de caracter num DBEdit
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
Curtidas 0
Respostas
Imoreira
24/09/2003
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;
GOSTEI 0
Bacalhau
24/09/2003
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;
GOSTEI 0