PagaControl 控件如何能锁定一个页面,在线。。。。。。 pagacontrol一共两个页面,一个显示列表,一个显示明细,当新增一条记录时,要锁定列表页,不让在显示列表页,只有保存后才解开,请问如何实现? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在pagecontrol的changing事件中设置,指定当前页为明细页面,设置Allowchange := falseprocedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean);begin if pagecontrol1.TabIndex = 0 then AllowChange := false;//0为第一页;end;保存后将AllowChange改为true就行呢 如果不在onchanging事件中,allowchange 属性在哪里能调出来? 在pagecontrol的changing事件中设置,allowchange 不是属性,是参数 那不如直接控制页面的显示,增加数据时列表页Visible设为False 你如果不切换页面,changing事件就不会发生,如果你意图切换页面,则必定会触发changing事件 Delphi 7与数据库的连接问题 怎样改动源代码才能改变API函数在输入表中的位置? 简单的代码优化 DELPHI中缩进用空格和TABS有区别吗? 控制记录移动问题,搞了好久也没做出来。。 怎么完成这种功能? 关于treeview? 高分求Delphi 6.0 Professional版本下载地址(要确实能下载) 请提供列车查询,有票价(包括卧铺)显示的网站, 学会Delphi要多久? 怎么删除所有动态创建的TImage? 有关计时器的用法(送分哈)
var AllowChange: Boolean);
begin
if pagecontrol1.TabIndex = 0 then AllowChange := false;//0为第一页;
end;保存后将AllowChange改为true就行呢