Re: [STRG]+[1] oder [STRG]+[2] ....
Wenn ich dich richtig verstanden habe, soll der Tab mit dem Rahmen gezeigt werden. Dann musst du den Focus auf das PageControl setzen:
Delphi-Quellcode:
Cu, Frank
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; ActiveControl := nil; // PageControl aktiv SetFocus; end; end; end; |
Re: [STRG]+[1] oder [STRG]+[2] ....
Dankeschön
Mir wurde super geholfen !! Nun Poste ich meine Komplette Lösung für die Nachwelt ;)
Delphi-Quellcode:
Danke viel mal für die Hilfe.
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; Mfg Robert |
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:22 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz