[问答] Firemonkey 控件继承后无法显示(空白)

2016-12-26 11:16:22来源:cnblogs.com作者:龟山Aone人点击

第七城市

提问:如下安装后的 TMyPanel 能在设计期时正常显示,但 TMyPanel2 在设计期时是白板,不能正常看到,为什么?

TMyPanel = class(TPanel)end;TMyCustomPanel = class(TPanel)TMyPanel2 = class(TMyCustomPanel)end;RegisterComponent('Test', [TMyPanel, TMyPanel2]);

可能:是隔代无法继承 Style 造成的,改成如下就可以了:

TMyPanel = class(TPanel)end;TMyCustomPanel = class(TPanel)end;TMyPanel2 = class(TMyCustomPanel)  protected    function GetDefaultStyleLookupName: string; override;end;function TMyPanel2.GetDefaultStyleLookupName: string;begin  Result := 'panelstyle';end;

ps. 这个是 QQ 群里的问题,记录一下。

第七城市

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台