I
ilovedx
Unregistered / Unconfirmed
GUEST, unregistred user!
当焦点离开olecontainer的时候,Word的工具栏会消失,再次激活时工具和菜单栏会有明显的闪动效果,请问如何能让这个菜单,工具栏,ole区域一直正常显示?即不出现闪动效果。望大侠门能够伸出援手,感谢万分!
TnxOleContainer =class(TOleContainer)
private
procedure CMUIDeactive(var Mesg: TMessage); message CM_UIDEactive; //这个消息在OleContainer里边有相应函数
end;
.....
var
CanUIDeactive: Boolean;
begin
if State < osInplaceAative then
Inherited
else
begin
CanUIDeactive:= True;
if Assigned(FOnUiDeactive) then FOnUIDeactive(CanUIDeactive);//FOnUiDeactive不通过,不知 FOnUiDeactive是什么,屏蔽后好象word菜单和ole栏中的标尺还是有闪动效果
if CanUIDeactive then Inherited;
end;
end;
TnxOleContainer =class(TOleContainer)
private
procedure CMUIDeactive(var Mesg: TMessage); message CM_UIDEactive; //这个消息在OleContainer里边有相应函数
end;
.....
var
CanUIDeactive: Boolean;
begin
if State < osInplaceAative then
Inherited
else
begin
CanUIDeactive:= True;
if Assigned(FOnUiDeactive) then FOnUIDeactive(CanUIDeactive);//FOnUiDeactive不通过,不知 FOnUiDeactive是什么,屏蔽后好象word菜单和ole栏中的标尺还是有闪动效果
if CanUIDeactive then Inherited;
end;
end;