【结】PageControl的页面切换问题[请求]

bfaomei · 发表于 2010-5-4 17:03:50

procedure TBASIC_TABLE_FORMDOC.PageControl1Changing(Sender: TObject; var AllowChange: Boolean);
begin
  //判断页面转换条件
  if (PageControl1.ActivePage=TabSheet1) then
  begin
if DataSetBroker_JOBS_TABLE_DETAL.DataSet.UpdatesPending then
begin
   AllowChange := false;
   JsDialogs.ShowMsg('数据已更改，请先保存数据，再切换页面！','提示');
   SysUtils.Abort;
end
else
begin
   AllowChange := true;
end;
  end;
end;
当当前也数据有更新，但没有保存的情况下，我点击了其他页，提示框出来了，点确定后，却跳到了点后的页面，请问是哪里出错了吗？

atiger · 发表于 2010-5-5 08:22:25

呵呵，我没有测试，你在 JsDialogs.ShowMsg('数据已更改，请先保存数据，再切换页面！','提示'); 后面加上 AllowChange := False; 这句试试

bfaomei · 发表于 2010-5-5 09:43:27

JsDialogs.ShowMsg('数据已更改，请先保存数据，再切换页面！','提示');这句去掉就没事了，结

atiger · 发表于 2010-5-5 09:57:41

不会呀，我测试，JsDialogs 这句肯定不会影响到切换的，这仅仅是个显示的语句，你把 SysUtils.Abort; 这句取消就可以了

bfaomei · 发表于 2010-5-5 17:00:41

我是你说的那样做的，上面是笔误，呵呵

		自动登录	找回密码
密码			立即注册