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

zusammenfalten · markieren

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?

Hai hincapie,

im Notfall sollte dieser Code dir helfen:

zusammenfalten · markieren

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:

zusammenfalten · markieren

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;

Hallo,

oder alternativ für:ActivePage := FindNextPage(ActivePage, true, true); das:
SelectNextPage(true);

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?

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

Versucht, aber auch dann tut sich nichts.

Zitat von hincapie:

Versucht, aber auch dann tut sich nichts.

Test mal das Projekt im Anhang.

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