现在的位置: 首页 > 综合 > 正文

TPageControl使用代码节选

2012年02月10日 ⁄ 综合 ⁄ 共 178字 ⁄ 字号 评论关闭
procedure TForm1.btn1Click(Sender: TObject);
begin
case cbb1.ItemIndex of
0:pgc1 .ActivePageIndex :=0;
1:pgc1 .ActivePageIndex :=1;
2:pgc1 .ActivePageIndex :=2;
3:pgc1 .ActivePageIndex :=3;
end
end;

抱歉!评论已关闭.