rzpagecontrol 使用的一个有关问题

rzpagecontrol 使用的一个问题一个rzpagecontrol 上有多个页面，发现按home、end键，会自动切换到起始页和末

rzpagecontrol 使用的一个问题
一个rzpagecontrol 上有多个页面，发现按home、end键，会自动切换到起始页和末尾页，如何屏蔽呢
[解决办法]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ActiveControl is TRzPageControl then
    if Key in [VK_HOME, VK_END] then
      Key := 0
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := True
end;