Como usar a tecla ENTER dentro do tabsheet?

Question

Ola amigos, Eh o seguinte criei um form com um PageControl, e dentro dele tem 9 tabsheet, ai eh o seguinte preciso que a tecla enter comande todos os tabsheet abrindo por sequencia tipo terminei o ult...

Brunobaco · Answer

Ol�, vc ja verificou o taborder? pode ser simplismente isso.Bruno Augusto...

Adriano_servitec · Answer

Ola Bruno, o TabOrder do Pagecontrol esta 0, coloquei 1 pra ver se funcionava e mesmo assim continua indo do tabsheet1 para tabsheet9...

Gandalf.nho · Answer

Vc pode for�ar a mudan�a de controle, colocando c�digo no evento OnExit do �ltimo Edit de cada TabSheet enviando o foco para o primeiro Edit do pr�ximo TabSheet...

R�mulo Barros · Answer

:arrow: [color=blue:88421def16][b:88421def16]Declare o Seguinte m�todo:[/b:88421def16][/color:88421def16]

procedure MudarTabSheet(Var AKey : Char);
Var
   C : Integer;
begin
   If(AKey = #13)Then
   Begin
      With(PageControl1)Do
      Begin
         If(ActivePageIndex < PageCount -1)Then  // Se n�o tiver na �ltima TabSheet ent�o...
         Begin
            ActivePageIndex := ActivePageIndex + 1;
         End
         Else
            Begin
               ActivePageIndex := 0 ; // Se tiver na �ltima TabSheet ent�o... selecionar a 1� TabSheet 
            End;
      End;
   End;
end;

Agora, chame este m�todo no evento [b:88421def16]OnKeyPress [/b:88421def16][u:88421def16]de apenas um Edit.[/u:88421def16]
Ap�s isso, abra o [b:88421def16]combobox [/b:88421def16]do evento [b:88421def16]OnKeyPress [/b:88421def16][u:88421def16]de todos os outros Edits das outras TabSheets[/u:88421def16] e aponte para o [color=blue:88421def16][i:88421def16][u:88421def16][b:88421def16]Edit1KeyPress[/b:88421def16][/u:88421def16][/i:88421def16][/color:88421def16].

Adriano_servitec · Answer

Obrigado a todos vcs meus amigos, agora funcionou....

F�rum Como usar a tecla ENTER dentro do tabsheet? #279990