Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ssctrl in shift then begin
case char(key) of
'1':
//tab 1 anzeigen
'2':
//tab 2 anzeigen
[...]
end;
end;
end;
klappt super !!!
Danke viel mals !!!
Nun bleibt noch die Frage offen wie ich bei STRG + 1 im Pagecontrol-->TabSheet1 Focusiere.
Also ich muss unbedingt das Focus auf den Registerkartenkopf setzen beim öffen der TabSheet1, TabSheet2,...
Danke schonmal im vorraus für die Hilfe