TPageControl und Tastatur-Steuerung

[hincapie]

Hallo,
ich habe da ein Problem mit dem Wechseln von TabSheets innerhalb eines PageControls per Tastendruck.
Versucht habe ich es bisher damit:

Delphi-Quellcode:

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

Leider funktioniert es nicht! :(
Eine andere Möglichkeit gibt es offensichtlich nicht, da TPageControl ja kein OnKeyDown-Ereignis hat.
Ach ja, bei TEditForm ist KeyPreview := True;
Hat jemand da vielleicht eine andere Lösung gefunden? :wink:

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

:oops:
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;

[Lannes]

Hallo,

oder alternativ für:

Delphi-Quellcode:

ActivePage := FindNextPage(ActivePage, true, true);

das:

Delphi-Quellcode:

SelectNextPage(true);

[hincapie]

Alles ausprobiert, tut sich nichts.
Ich glaube inzwischen daß das OnkeyDown-Ereignis gar nicht am PageControl oder den TabSheets ankommt.
Aber wie soll's sonst klappen?

Edit:
Hat's vieleicht damit zu tun, daß EditForm ein MDI-Child ist?

[Sharky]

Dann muss der Code natürlich in das OnKeyDown der MidiForm.

[hincapie]

Versucht, aber auch dann tut sich nichts.

[Sharky]

Zitat:

Zitat von hincapie

Versucht, aber auch dann tut sich nichts.

Test mal das Projekt im Anhang.

[hincapie]

So, das Problem ist gelöst!
Ich Idiot hatte die F11-Taste bereits für eine andere Funktion belegt! :oops:
Jetzt läuft es!
Nochmal Danke für eure Tipps!