如何进行PageControl1控件内部的页面切换？

Question

PageControl1.ActivePage:=你要显示的page 就可以了。
你想用键盘操作那你就判断一下按键再设置PageControl1.ActivePage就行了。

Answer 1

把form的keypreview属性设置为true，然后你可以配置一个热键，在form的onkeypress或onkeydown事件中进行判断，符合则使用
PageControl1.ActivePage:=你要显示的page实现翻页

Answer 2

哈哈，taxi(游少爷)，总不能每次都你跑前面吧，嘿嘿。

Answer 3

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=40 then     (向下的方向键）
  begin
    Inc(a);
    if a=pagecontrol1.PageCount then
      a:=0;
    pagecontrol1.ActivePageIndex := a;
  end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  a:=0;
end;