ActivePage des PageControl mit ShortCut?

[Shaman]

Hallo

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_F9 then PageControl1.ActivePageIndex:= 4;
end;

KeyPreview auf True setzen

Gruss
Shaman

Edit: Club-Member. Wueeeeeeeeeeh!