Autom. Weiterschaltung (TPageControl)

[Sharky]

Hai rbest,

ungetestet:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (ssctrl in Shift) AND (Key = VK_RIGHT) then
  begin
    PageControl1.SelectNextPage(true);
  end;
end;

Bei der Form muss natürlich KeyPreview auf True stehen.