Tpage per taste umschalten

[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.