diff --git a/Source/GUIBase/uEditorBase.pas b/Source/GUIBase/uEditorBase.pas index 4b86ffc5..59702c04 100644 --- a/Source/GUIBase/uEditorBase.pas +++ b/Source/GUIBase/uEditorBase.pas @@ -153,6 +153,25 @@ implementation uses Menus, uDMBase, cxControls, uDialogUtils; +{Método que coge el componente editor que tenga el foco y le fuerza a hacer post para que la tabla se entere +} +procedure PostActivecxEditorChanges; +var + AControl: TWinControl; + ActiveEditor: TcxCustomEdit; +begin + ActiveEditor:= nil; + + AControl := Screen.ActiveControl; + if Supports(AControl, IcxInnerEditHelper) then + ActiveEditor:= TcxCustomEdit(AControl.Owner) + else + if AControl is TcxCustomEdit then + ActiveEditor:= TcxCustomEdit(AControl); + if Assigned(ActiveEditor) then + ActiveEditor.PostEditValue; +end; + { ********************************* TfEditorBase ********************************* } @@ -345,7 +364,7 @@ end; procedure TfEditorBase.GuardarInterno; begin - // + PostActivecxEditorChanges; end; procedure TfEditorBase.ImprimirInterno;