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