盒子论坛 v2.1

请教！！
  pagecontrol1上有4个tabsheet
我的程序中是这样的，点击了tabsheet1，然后判断条件，如果不符合条件我想让
tabsheet2显示。
我在tabsheet1的onshow事件里代码如下：
begin
  if not (条件) then
    tabsheet2.show;
end;为什么不行呢？

----------------------------------------------
不爱我-就别靠近我。

作者：

dfw@107866 (jacky_shen)	★☆☆☆☆	-
	普通会员

2003/12/3 11:49:31

1楼：

procedure TForm1.pgcChanging(Sender: TObject;
  var AllowChange: Boolean);
begin
  BackPage := pgc.ActivePage;
end;

procedure TForm1.pgcChange(Sender: TObject);
begin
  LockWindowUpdate(pgc.Handle);
  try
    if not CheckBox1.Checked then  // 你的满足条件
      if pgc.ActivePage = TabSheet2 then
      begin
        pgc.ActivePage := BackPage;
      end;
  finally
    LockWindowUpdate(0);
  end;
end;

此帖子包含附件:dfw@107866_2003123114931.rar 大小:134.4K

----------------------------------------------
----
VCL

信息

登陆以后才能回复