Dica TPageControl

Question

Pessoalno meu form tenho um TPageControl, gostaria de quando o usuario clicasse em Ctrl+TAB foce pulando de guias, alguem sabe como fazer ?AguardoValeu...

Afarias · Answer

defina a propriedade KeyPreview do Form para TRUE

no evento OnKeyDown do Form coloque:

  
  if (Key=VK_TAB) and (ssCtrl in Shift) then
    PageControl1.SelectNextPage(True);

T+

Fabianoluizdb · Answer

Amig�oFiz todo o precedimento conforme me passou mas n�o funcionou, fui na propriedade KeyPreview e passei para True(Na verdade ja estava pois tenho um evendo que criei para habilitar o PageUP(Registro anterior) e PageDown(Proximo Registro))procedure TFclientes.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);begin  if (Key=VK_TAB) and (ssCtrl in Shift) then    TPageControl.SelectNextPage(True);end;Tentei at� desa maneira mas n�o deu case Key of    VK_TAB: if (ssCtrl in Shift) then TPageControl.SelectNextPage(True);  end;Se tiver alguma id�ia do que pode ser por favor me avise vou tentar ve se acho tambem.Abra�o...

Osocram · Answer

veja se a propriedade TabStop = true do pagecontrol...

Fabianoluizdb · Answer

Amigoa propriedade TabStop esta com true e no OnKeyDown esta conforme abaixo, mas n�o deu certoprocedure TFclientes.FormKeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);begin  if (Key=VK_TAB) and (ssCtrl in Shift) then    TPageControl.SelectNextPage(True);  case Key of    VK_PRIOR: DM.SDSMembros.Prior;    VK_NEXT: DM.SDSMembros.Next;    VK_HOME: if (ssCtrl in Shift) then DM.SDSMembros.First;    VK_END: if (ssCtrl in Shift) then DM.SDSMembros.Last;  end;end;Valeu...

Afarias · Answer

Desculpe, n�o vejo como n�o funcionar, a n�o ser pelo fato de vc aparentemente estar passando o nome da CLASSE no lugar do componente

TPageControl.SelectNextPage(True);

TPageControl � o nome do componente????

De qualquer forma, organize seu c�digo:

case Key of 
  VK_PRIOR: DM.SDSMembros.Prior; 
  VK_NEXT: DM.SDSMembros.Next; 
  VK_HOME: if (ssCtrl in Shift) then DM.SDSMembros.First; 
  VK_END: if (ssCtrl in Shift) then DM.SDSMembros.Last; 
  VK_TAB: if (ssCtrl in Shift) then PageControl1.SelectNextPage(True); 
end;

T+

Fabianoluizdb · Answer

IssoTPageControl � o nome do meu componente de Guias, mas � muito estranho organizei igual ao que me passou as outras fun��es funcionam mas a de clicar em Crtl+Tab para passar as guias n�oVou continuar tentandoValeu...

F�rum Dica TPageControl #375137