delphi - 确保在表单关闭时捕获数据感知控件中的更改

Question

我注意到，如果带有数据感知控件的表单从标题栏关闭，并且事件控件的数据已更改，则该更改永远不会使其进入基础数据源。我已将此追溯到 CM_EXIT 消息，该消息从未因控件而被解雇。

我如何确保无论哪个控件最后获得焦点，这些更改都被推送到数据源？

Answer 1

您可以在表单的 OnCloseQuery 事件中发送所需的 CM_Exit。

procedure TMyForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if Assigned(ActiveControl) then
    SendMessage(ActiveControl.Handle, CM_EXIT,0,0);
end;