Q:我在 TabSheet 的 Caption 屬性中加入了快速鍵 (accelerator char)
  ，但執行時這些快速鍵並沒有作用。
A:參考以下的程式碼。

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
  private
    procedure CMDialogChar(var Msg:TCMDialogChar); message CM_DIALOGCHAR;

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CMDialogChar(var Msg:TCMDialogChar);

var
  i:Integer;
begin
  with PageControl1 do
  begin
    if Enabled then
    begin
      for i := 0 to PageControl1.PageCount - 1 do
      begin
        if ((IsAccel(Msg.CharCode, Pages[i].Caption)) and 
           (Pages[i].TabVisible)) then
        begin
          Msg.Result:=1;
          ActivePage := Pages[i];
          exit;
        end;
      end;
    end;
  end;
  inherited;
end;

end.