ActivePage des PageControl mit ShortCut?

[torud]

Hallo Leute,

ich habe in einem meiner Programme mehrere PageControls und ich moechte/muss fuer eines realisieren, dass ich durch betaetigen der Taste F9 erreiche, dass der ActivePageIndex auf 4 gesetzt wird und das PageControl auch zu dieser Seite wechselt, egal wo ich mich gerade im Programm befinde.

Wie macht man so was?
Da muesste ich doch was globales erstellen, oder ???

[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!

[torud]

Genau das war es, was ich suchte!