TPageControl und Tastatur-Steuerung

[Sharky]

Hai hincapie,

im Notfall sollte dieser Code dir helfen:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: word; Shift: TShiftState);
begin
  if Key = VK_F11 then
  begin
    with PageControl1 do
    begin
      if (ActivePageIndex < Pred(PageCount)) then
      begin
        ActivePageIndex := ActivePageIndex + 1
      end
      else
      begin
        ActivePageIndex := 0
      end;
    end;
    Key := 0;
  end;
end;

In deinem Code ist nur ein kleiner Fehler
FindNexPage ist eine Funktion welches dir das nächste TTabSheet zurückliefert. Also einfach so ändern:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: word; Shift: TShiftState);
begin
  if Key = VK_F11 then
  begin
    with PageControl1 do
    begin
     ActivePage := FindNextPage(ActivePage, true, true);
    end;
    Key := 0;
  end;
end;