在 Delphi 中正确验证 TPageControl

Question

我正在使用 Delphi 7 代码，以确保在用户切换选项卡之前已保存在选项卡上输入的 cmets。

标签位于TPageControl，此代码被触发OnExit

procedure TfCallerInfo.tsChaplainExit(Sender: TObject);
begin
  { Compare the saved DB value with the text in the comments field }
  if (dmMain.qChaplainCOMMENTS.AsString <> dbmChapComments.Text) then
    begin
      ShowMessage ('Please save the comments before proceeding.');
      pcDetail.ActivePage := tsChaplain;      // Remain on the Current Page
      tsChaplain.SetFocus;
    end;
end;

例如，当用户单击另一个选项卡 tsInfoRequest 时，会触发验证，但活动页面变为 tsInfoRequest，而不是剩余的 tsChaplain。

知道我做错了什么吗？

Answer 1

可能有更好的方法来做你想做的事情。请改用TPageControl.OnPageChanging 事件。

procedure TfCallerInfo.pcDetailPageChanging(Sender: TObject; 
  NewPage: TTabSheet; var AllowChange: Boolean);
begin
  if pc.ActivePage = tsChaplain then
  begin
    AllowChange := (dmMain.qChaplainCOMMENTS.AsString = dbmChapComments.Text);
    if not AllowChange then
      ShowMessage(...);
  end;
end;

顺便说一句，更好的测试可能是

AllowChange := not dmMain.gChaplainCOMMENTS.Modified;

TField.Modified在DataSet处于dsEdit或dsInsert模式时字段内容发生变化时设置为True，当状态变回dsBrowse时设置为False。