PageControl判断选择项

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

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

示例代码如下&＃xff1a;

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

end;

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

参考资料&＃xff1a;http://203.208.39.132/search?q&＃61;cache:_r4snYmyyRgJ:thns.tsinghua.edu.cn/thnsebooks/ebook43/08.pdf&＃43;delphi&＃43;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&＃61;10&hl&＃61;zh-CN&ct&＃61;clnk&gl&＃61;cn&st_usg&＃61;ALhdy2_Qc4eZ8_RpASIRt9QXmCTaKwVbqQ