在component菜单new conponent下,选择继承Tpanel,取名Tmycompanent
在原来的代码里面修改,添加一下内容
type
Tmycompanent = class(Tpanel)
public
constructor Create(AOwner: TComponent); override;
end;
implementation
constructor Ttabshape.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
caption :='hello world!';
end;
最后,编译,打包到某一个dpk中
你就可以在面板里面看到了。