Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  Re: [STRG]+[1] oder [STRG]+[2] ....

   
    by dataspider, 25. Nov 2005
  Wenn ich dich richtig verstanden habe, soll der Tab mit dem Rahmen gezeigt werden. Dann musst du den Focus auf das PageControl setzen:
  
  procedure TFRMMain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  begin
  with PageControl1 do
  begin
  if (Shift = ) and (key in ) and (PageCount > key - 49) then
  begin
  ActivePageIndex := key - 49;
• Forum: Programmieren allgemein

  Re: [STRG]+[1] oder [STRG]+[2] ....

   
    by dataspider, 25. Nov 2005
  Hi binio,
  etwas universeller ist:
  
  procedure TFRMMain.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  begin
  with PageControl1 do
  begin
  if (Shift = ) and (key in ) and (PageCount > key - 49) then
  begin