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?
