Dica TPageControl

defina a propriedade KeyPreview do Form para TRUE

no evento OnKeyDown do Form coloque:




T+

Amigão

Fiz 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

veja se a propriedade TabStop = true do pagecontrol

Amigo

a propriedade TabStop esta com true e no OnKeyDown esta conforme abaixo, mas não deu certo

procedure 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

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 é o nome do componente????



De qualquer forma, organize seu código:





T+

Isso

TPageControl é 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ão

Vou continuar tentando

Valeu