Einzelnen Beitrag anzeigen

khh

Registriert seit: 18. Apr 2008
Ort: Südbaden
1.929 Beiträge
 
FreePascal / Lazarus
 
#3

Re: Tpage per taste umschalten

  Alt 13. Okt 2008, 16:21
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
Karl-Heinz
  Mit Zitat antworten Zitat