Tpage per taste umschalten

[khh]

hallo zusammen,
gibt es ne( einfache) Möglichkeit zwischen mehreren Tpages auf einem TNotebook per Tastenkombination umzuschalten?

Danke für eure Hilfe


Gruss KH

[nahpets]

Hallo,

meinst Du sowas in der Art?

Delphi-Quellcode:

procedure TfmMain.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if ssCtrl in Shift then begin
    case key of
      33 : if pc.ActivePageIndex = 0 then begin
             pc.ActivePageIndex := pc.PageCount - 1;
           end else begin
             pc.ActivePageIndex := pc.ActivePageIndex - 1;
           end;
      34 : if pc.ActivePageIndex = pc.PageCount - 1 then begin
             pc.ActivePageIndex := 0;
           end else begin
             pc.ActivePageIndex := pc.ActivePageIndex + 1;
           end;
    end;
  end;
end;

Hier wird mit Strg+Bildauf bzw. Strg+Bildab bei einem TPageControl zwischen den einzelnen Seiten geblättert. Im Formular muss KeyPreview auf True stehen.

[khh]

Zitat von nahpets:

Hallo,

meinst Du sowas in der Art?

Delphi-Quellcode:

procedure TfmMain.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if ssCtrl in Shift then begin
    case key of
      33 : if pc.ActivePageIndex = 0 then begin
             pc.ActivePageIndex := pc.PageCount - 1;
           end else begin
             pc.ActivePageIndex := pc.ActivePageIndex - 1;
           end;
      34 : if pc.ActivePageIndex = pc.PageCount - 1 then begin
             pc.ActivePageIndex := 0;
           end else begin
             pc.ActivePageIndex := pc.ActivePageIndex + 1;
           end;
    end;
  end;
end;

Hier wird mit Strg+Bildauf bzw. Strg+Bildab bei einem TPageControl zwischen den einzelnen Seiten geblättert. Im Formular muss KeyPreview auf True stehen.

super, genau so was hab ich gemeint.

danke, gruss KH