Delphi-Quellcode:
procedure TFRMMain.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
with PageControl1 do
begin
if (Shift = [ssCtrl]) and (key in [48..56]) and (PageCount > key - 49) then
begin
ActivePageIndex := key - 49;
key := 0;
end;
end;
end;
klappt lauch super und das tolle ist noch das ich die F1 bis F12 Tasten mit einbinden kann :)
Aber wie setze ich jetzt den Focus auf die Registerkartenköpfe?
Habe das Problem das wenn ich in einer Registerkarte (1) auf die darin enthaltenen Listenfelder gehe und z.B. [STRG]+[2] oder [STRG]+[TAB] drücke der in Registerkarte (2) auf die darin enthaltene Listenfelder geht. Er soll aber auf den Registerkartenkopf
Mfg
Robert
P.S. ich sollte wohl noch erwehnen das ich newbie in Delphi bin :(