OLE 焦点问题

最新推荐文章于 2023-04-27 10:40:16 发布

原创最新推荐文章于 2023-04-27 10:40:16 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #class

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