PageControl 判断选择项

可以利用PageControl的事件OnChange来进行判断到底选择了哪一个选项

当有选项卡被选中时，就会触发OnChange事件，并且根据 TabIndex(从0开始计数)属性判断是哪个选项卡被选中，依据这个，我们就可以轻松的判断出到底选择了那个选项

示例代码如下：

procedure TForm1.PageControl1Change(Sender: TObject);
begin
      case PageControl1.TabIndex of
      0:   MessageBox(0,'第一个','aaa',mb_ok);
      1:    MessageBox(0,'第二个','aaa',mb_ok);
      2:    MessageBox(0,'第三个','aaa',mb_ok);
      3:    MessageBox(0,'第四个','aaa',mb_ok);
      4:    MessageBox(0,'第五个','aaa',mb_ok);
      end

end;

触发O n C h a n g e事件，并且根据 Ta b I n d e x属性判断是哪个选项卡被选中

这样就实现了选择项的选择

 

参考资料：http://203.208.39.132/search?q=cache:_r4snYmyyRgJ:thns.tsinghua.edu.cn/thnsebooks/ebook43/08.pdf+delphi+PageControl%E5%A6%82%E4%BD%95%E5%88%A4%E6%96%AD%E9%80%89%E6%8B%A9%E5%93%AA%E4%B8%AA&cd=10&hl=zh-CN&ct=clnk&gl=cn&st_usg=ALhdy2_Qc4eZ8_RpASIRt9QXmCTaKwVbqQ