Passar de um campo para outro se usar o TAB ou ENTER

Question

Pessoal!gostaria de saber se existe alguma rotina ou comando q fa�a a mudan�a de um campo para outro sem precisar usar o TAB ou ENTER, por exemplo: no Edit 1 o campo maximo de caracteres � 5 e no Edit...

Fabio.hc · Answer

Tente assim:[code:1:99e20748e7]procedure TForm1.Edit1Change(Sender: TObject);begin   if (Sender as TEdit).MaxLength = Length((Sender as TEdit).Text) then      Perform(WM_NEXTDLGCTL,0,0);end;[/code:1:99e20748e7]Fa�a todos o edit�s chamar este evento no onChange edit1.Defina o MaxLength de cada edit....

Jos� Silva · Answer

colega fiz o q vc mandou mais nao funcionou
coloquei a linha de comando no primeiro DBEdit e lliguei todos os outros com o mesmo comando. so q ao executar o aplicativo, informa uma mensagem de erro dizendo o seguinte:

Exce��o EInvalidcast no modulo Paiol.exe. Not 000A82EB
Typecast de classe invalido.

como resolvo este problema?

Obrigado pela aten��o

Beppe · Answer

Tenta assim ent�o:[code:1:30fbc41283]procedure TForm1.DBEdit1Change(Sender: TObject); begin    if (Sender as TCustomEdit).MaxLength = Length((Sender as TCustomEdit).Text) then       Perform(WM_NEXTDLGCTL,0,0); end;[/code:1:30fbc41283]...

Dankada · Answer

[quote:72e7d4d36b=�Jos� Carlos S. da Silva�]colega fiz o q vc mandou mais nao funcionou
coloquei a linha de comando no primeiro DBEdit e lliguei todos os outros com o mesmo comando. so q ao executar o aplicativo, informa uma mensagem de erro dizendo o seguinte:

Exce��o EInvalidcast no modulo Paiol.exe. Not 000A82EB
Typecast de classe invalido.

como resolvo este problema?

Obrigado pela aten��o[/quote:72e7d4d36b]

eu acabei de testa essa rotina q o nosso amigo acima informou e ela funciona perfeitamente, vc deve esta fazendo algo errado ai

ps. seleciona todo os edits e vai no evento onChange e coloca a rotina que vai funcionar

Jos� Silva · Answer

fiz q me mandou mais deu erro na linha onde estar em negrito:

if (Sender as TCustomEdit[b:31b48ddb49]).MaxLength[/b:31b48ddb49] = Length((Sender as TCustomEdit).Text) then

este codigo so funciona com EDIT? nao funciona com DBEDIT? estou usando tabela parafox

Codigodelphi · Answer

Se voce so quiser trocar TAB por ENTER pode usar o segunte codigo:if key=#13 then begin  selectnext(sender as twincontrol, true, true);  key:=0; end;...

Moonlight · Answer

Se nenhum dos acima funcionar, d� uma olhada na pesquisa. Com certeza voc� vai achar algo por l�....

Fabio.hc · Answer

Com DBEdit, tente assim:[code:1:897e9dd4ba]procedure TForm1.DBEdit1Change(Sender: TObject);begin   if (Sender as TDBEdit).MaxLength = Length((Sender as TDBEdit).Text) then       Perform(WM_NEXTDLGCTL,0,0);end;[/code:1:897e9dd4ba]Ou assim:[code:1:897e9dd4ba]procedure TForm1.DBEdit1Change(Sender: TObject);begin   if (Sender as TDBEdit).Field.DisplayWidth = Length((Sender as TDBEdit).Text) then       Perform(WM_NEXTDLGCTL,0,0);end;[/code:1:897e9dd4ba]...

F�rum Passar de um campo para outro se usar o TAB ou ENTER #242413