-br] Mudar de campo pelo tamanha do Edit
Esta dica foi passada pelo nosso amigo Márcio Theis e fui eu quem
postei a duvida e então lá vai:
Crie a seguinte procedure
procedure TForm1.SaltaCampos(Sender: TObject);
begin
if (Length((Sender as TEdit).Text) = ((Sender as TEdit).MaxLength
Esta dica foi passada pelo nosso amigo Márcio Theis e fui eu quem
postei a duvida e então lá vai:
Crie a seguinte procedure
procedure TForm1.SaltaCampos(Sender: TObject);
begin
if (Length((Sender as TEdit).Text) = ((Sender as TEdit).MaxLength))
then
Perform(WM_NEXTDLGCTL,0,0);
end;
depoi
2 matches
Mail list logo