[STRG]+[1] oder [STRG]+[2] ....

[binio]

Delphi-Quellcode:

procedure TFRMMain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  with PageControl1 do
  begin
    if (Shift = [ssCtrl]) and (key in [48..56]) and (PageCount > key - 49) then
    begin
      ActivePageIndex := key - 49;
      key := 0;
    end;
  end;
end;

klappt lauch super und das tolle ist noch das ich die F1 bis F12 Tasten mit einbinden kann :)
Aber wie setze ich jetzt den Focus auf die Registerkartenköpfe?
Habe das Problem das wenn ich in einer Registerkarte (1) auf die darin enthaltenen Listenfelder gehe und z.B. [STRG]+[2] oder [STRG]+[TAB] drücke der in Registerkarte (2) auf die darin enthaltene Listenfelder geht. Er soll aber auf den Registerkartenkopf

Mfg
Robert

P.S. ich sollte wohl noch erwehnen das ich newbie in Delphi bin :(