Frame继承,该怎么解决

Frame继承
我创建了个Frame。但Frame没有Onshow事件。我该如何继承下来。不要用create。

[解决办法]
procedure CMShowingChanged(var Message: TMessage); message CM_SHOWINGCHANGED;
[解决办法]
frame把它当控件用，只是这个控件可以放置其他的控件