Dankeschön
Mir wurde super geholfen !!
Nun Poste ich meine Komplette Lösung für die Nachwelt ;)
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
with PageControl1 do
begin
if (Shift = [ssCtrl]) and (key in [49..57]) then
begin
ActivePageIndex := key - 49; //Erg = 0 bis 9 -->Tabsheet0 bis Tabsheet9
key := 0;
ActiveControl := nil;
// PageControl aktiv
SetFocus;
end;
if (Shift = [ssCtrl]) and (key =48) then
begin
ActivePageIndex := key - 39; //Erg = 10 -->Tabsheet10
key := 0;
ActiveControl := nil;
// PageControl aktiv
SetFocus;
end;
if (Shift = [ssCtrl]) and (key in [VK_F1..VK_F12]) then
begin
ActivePageIndex := key - 102; //Erg = 11 bis 22 -->Tabsheet11 bis Tabsheet22
key := 0;
ActiveControl := nil;
// PageControl aktiv
SetFocus;
end;
end;
end;
Danke viel mal für die Hilfe.
Mfg
Robert