pagacontrol一共两个页面,一个显示列表,一个显示明细,当新增一条记录时,要锁定列表页,不让在显示列表页,只有保存后才解开,请问如何实现?

解决方案 »

  1.   

    在pagecontrol的changing事件中设置,指定当前页为明细页面,设置Allowchange := falseprocedure TForm1.PageControl1Changing(Sender: TObject;
      var AllowChange: Boolean);
    begin
      if pagecontrol1.TabIndex = 0 then AllowChange := false;//0为第一页;
    end;保存后将AllowChange改为true就行呢
      

  2.   

    如果不在onchanging事件中,allowchange 属性在哪里能调出来?
      

  3.   

    在pagecontrol的changing事件中设置,allowchange 不是属性,是参数
      

  4.   

    那不如直接控制页面的显示,增加数据时列表页Visible设为False
      

  5.   

    你如果不切换页面,changing事件就不会发生,如果你意图切换页面,则必定会触发changing事件