> Hi, I think you can try next code
>
>
> TOleContainerAc=class(TOleContainer)
> private
> FCannotDeactivate: Boolean;
> procedure CMUIDeactivate(var Message: TMessage); message
> CM_UIDEACTIVATE;
> published
> property CannotDeactivate: Boolean read FCannotDeactivate write
> FCannotDeactivate;
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> { TOleContainerAc }
>
> procedure TOleContainerAc.CMUIDeactivate(var Message: TMessage);
> begin
> if not CannotDeactivate then
> inherited;
> end;
>
> When Delphi packed then OleContainer, there is a bug about focuse.
> The new OleContainer component will fixed it
>
>
>
>
>
> TOleContainerAc=class(TOleContainer)
> private
> FCannotDeactivate: Boolean;
> procedure CMUIDeactivate(var Message: TMessage); message
> CM_UIDEACTIVATE;
> published
> property CannotDeactivate: Boolean read FCannotDeactivate write
> FCannotDeactivate;
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> { TOleContainerAc }
>
> procedure TOleContainerAc.CMUIDeactivate(var Message: TMessage);
> begin
> if not CannotDeactivate then
> inherited;
> end;
>
> When Delphi packed then OleContainer, there is a bug about focuse.
> The new OleContainer component will fixed it
>
>
>