读书人

rzpagecontrol 使用的一个有关问题

发布时间: 2013-01-06 15:44:47 作者: rapoo

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;

读书人网 >.NET

热点推荐