Digite em 'Pesquisar Dica' o que deseja procurar. Ex: DBGRID

PESQUISAR DICA:

TABCONTROL - MUDAR COM CTRL+TAB

// KeyPreview = True;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if (Key = VK_Tab) and (GetKeyState(VK_CONTROL) < 0) then
    if (ActiveControl <> nil) and IsChild(TabControl1.Parent.Handle, 
ActiveControl.Handle) then
        with TabControl1 do
        begin
            TabIndex := (TabIndex + 1) mod Tabs.Count;
            Key := 0;
        end;
end;