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

[dataspider]

Hi binio,
etwas universeller ist:

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;

Da kannst du weitere Tabsheets hinzufügen etc.
CCu, Frank