Movimenta�ao nas Guias de PageControl

Question

Na minha aplica��o tenho v�rios PageControl.
Gostaria de fazer uma rotina - para todos os m�dulos - onde o usu�rio pressionasse uma determinada tecla e as fossem se alternando.
Algu�m tem id�ia de como implementar isso?
Delphi 7.

Obrigado.

Steve_narancic · Answer

Mudar de tabSheet quando determinada tecla fosse pressionada?

existe a possibildade de voc� definir a propriedade caption do Tabsheet com o [b:7932a23c32]&[/b:7932a23c32] antes de um caracter fazendo com que ao pressionar a tecla Alt+(caracter com o & antes) a tabsheet seja ativada, como se fosse uma tecla de atalho.

Ex.: &Principal => [u:7932a23c32]P[/u:7932a23c32]rincipal

Ao pressionar as Teclas Alt+P a guia Principal ser� ativada

Martins · Answer

[quote:765e57f497=�Armindo�]Na minha aplica��o tenho v�rios PageControl. Gostaria de fazer uma rotina - para todos os m�dulos - onde o usu�rio pressionasse uma determinada tecla e as fossem se alternando.Algu�m tem id�ia de como implementar isso?Delphi 7.Obrigado.[/quote:765e57f497]vc poderia trabalhar com o index do componente, pode funcionar....

Adriano Santos · Answer

[quote:09816f000d=�Martins�][quote:09816f000d=�Armindo�]Na minha aplica��o tenho v�rios PageControl. Gostaria de fazer uma rotina - para todos os m�dulos - onde o usu�rio pressionasse uma determinada tecla e as fossem se alternando.Algu�m tem id�ia de como implementar isso?Delphi 7.Obrigado.[/quote:09816f000d]vc poderia trabalhar com o index do componente, pode funcionar.[/quote:09816f000d]Pra ficar bem simples, no evento onKeyDown do form coloque:[code:1:09816f000d]procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);begin  if Key = VK_F2 then    PageControl1.ActivePage := TabSheet1;  if Key = VK_F3 then    PageControl1.ActivePage := TabSheet2;  if Key = VK_F4 then    PageControl1.ActivePage := TabSheet3;end;[/code:1:09816f000d]N�o esque�a de colocar a propriedade KeyPreview do form como True;...

Martins · Answer

[quote:c5d9b67abe=�Adriano Santos�][quote:c5d9b67abe=�Martins�][quote:c5d9b67abe=�Armindo�]Na minha aplica��o tenho v�rios PageControl. Gostaria de fazer uma rotina - para todos os m�dulos - onde o usu�rio pressionasse uma determinada tecla e as fossem se alternando.Algu�m tem id�ia de como implementar isso?Delphi 7.Obrigado.[/quote:c5d9b67abe]vc poderia trabalhar com o index do componente, pode funcionar.[/quote:c5d9b67abe]Pra ficar bem simples, no evento onKeyDown do form coloque:[code:1:c5d9b67abe]procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);begin  if Key = VK_F2 then    PageControl1.ActivePage := TabSheet1;  if Key = VK_F3 then    PageControl1.ActivePage := TabSheet2;  if Key = VK_F4 then    PageControl1.ActivePage := TabSheet3;end;[/code:1:c5d9b67abe]N�o esque�a de colocar a propriedade KeyPreview do form como True;[/quote:c5d9b67abe]Tamb�m � uma sa�da!!!...

F�rum Movimenta�ao nas Guias de PageControl #294277