Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   [STRG]+[1] oder [STRG]+[2] .... (https://www.delphipraxis.net/57710-%5Bstrg%5D-%5B1%5D-oder-%5Bstrg%5D-%5B2%5D.html)

dataspider 25. Nov 2005 15:46

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:
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;
Cu, Frank

binio 25. Nov 2005 15:52

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:
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:22 Uhr.
Seite 2 von 2     12   

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