如何在VCL中增加事件，当Visible改变时触发该事件？

[Jim3]

我想在VCL中增加一个事件，当Visible改变时触发该事件

可是SetVisible和GetVisible都是private,无法改写

能不能增加一个同名同类型的属性替代原来的Visible呢？

[jishiping]

拦截消息CM_VISIBLECHANGED，或者重载RequestAlign函数。注意重载函数时，需要调用原来的RequestAlign函数。

[jishiping]

void __fastcall MyControl::RequestAlign()
{
TControl::RequestAlign(); //这儿假设从TControl派生
//调用你自己写的事件函数
}

[Jim3]

谢谢

RequestAlign()和Visible有什么关系？

哪里有这方面的知识？

是看controls.pas得来的么？

[jishiping]

是看controls.pas得来的。

procedure TControl.SetVisible(Value: Boolean);
begin
if FVisible <> Value then
begin
VisibleChanging;
FVisible := Value;
Perform(CM_VISIBLECHANGED, Ord(Value), 0);
RequestAlign; //RequestAlign是虚拟函数
end;
end;

[Jim3]

呵呵，我看到了

谢谢啦！

另外，拦截消息就是改写消息处理函数吧？

[jishiping]

我又看了一下，还是拦截消息CM_VISIBLECHANGED比较好。如果重载RequestAlign的话，除了SetVisible会调用RequestAlign外，其它地方也会调用RequestAlign。怎么拦截消息CM_VISIBLECHANGED，就不用我说了吧。

[jishiping]

就是重载WndProc这个函数。
void __fastcall MyControl::WndProc(TMessage& Msg)
{
TControl::WndProc(Msg); //这儿假设从TControl派生

if (Msg.Msg==CM_VISIBLECHANGED) {
//调用你自己写的事件函数
}
}

[Jim3]

用RequestAlign也可以，加个判断就可以了，只是没有拦截消息那么有效率

[Jim3]

谢谢