关于pagecontrol的问题！！

Question

怎样在PAGECONTROL中在TABSHEET相互切换时先判断TABSHEET1中的QUERY是否在修改状态，如果是修改状态将不支持切换？？？
在线等！！。。

Answer 1

在PageControl的Changing事件中开出条件.再设置AllowChange。设为True可切换，False不可切换！procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
if 1=1 then
AllowChange:=false;
end;