当pagecontrol中有多个tabsheet时如何控制tabsheet不被切换
解决方案 »
- 一直很迷惑的问题
- 把一个TstringList的实例传到一个dll中,如何在dll中根据这个指针获取这个stringlist实例?
- 在DELPHI程序中,怎样调用锁定计算机?
- 太气愤了!!!大家评评理!!!
- 程序关闭时Access violation问题!在我的机器上没有这个问题,安装到别的机器上就有!
- 小妹又遇到了一个很难跨过去的门槛:如何把select出来的文档或图片,通过ole控件显示出来。(预备200分,不够再加)
- 一个小问题关于Qreport如何报表的?
- 请问,删除Registry中的值用什么函数?
- 昨天我挖苦心思都没想出来的三个问题终于沉冤得雪了。。。(就是Query和dBASEIII的问题)
- ListView上图标的双击事件
- Delphi图表
- delphi中 for 语句有没有类试于vb中step的步长?
設pagecontrol的enable:=false 的話那當前的tabsheet上的組件也沒法操作了。
所以,
你可以設置
tabsheet2.TabVisible:=false;
tabsheet3.TabVisible :=false;
這樣這兩個sheet就看不見了。
或者可以這樣
procedure TForm1.PageControl1Change(Sender: TObject);
begin
if pagecontrol1.ActivePageIndex=2 then
pagecontrol1.ActivePageIndex :=0;
end;
var AllowChange: Boolean);
begin
AllowChange:=false;
end;