如何使pagecontrol的某个页面变为不可选状态?

lkdbdlkq 2006-12-22 03:42:26
procedure TForm1.PageControl1Changing(Sender: TObject;
var AllowChange: Boolean);
begin
Allowchange:=false;
end;

这个东东会使所有页面不可操作,如果我只想其中的几个变成这种效果,如何做呢?
...全文
75 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
GaoShuZhh_2006 2006-12-22
  • 打赏
  • 举报
回复
procedure TForm1.cxPagePageChanging(Sender: TObject; NewPage: TcxTabSheet;
var AllowChange: Boolean);
begin
NewPage.Enabled := False;
AllowChange := False;
end;

楼主,这样就可以了..

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧