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;
当当前也数据有更新,但没有保存的情况下,我点击了其他页,提示框出来了,点确定后,却跳到了点后的页面,请问是哪里出错了吗?