OLE 焦点问题

> 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
>
>
>