在Lazarus中创建自定义包

Question

我想创建一个自定义标签包，但我不知道如何去做。

我这样做：

文件 - >新建 - >包装

然后添加 - >新建组件

我选择的祖先类型等最后点击创建新组件。

我得到了以下单位代码。

unit MyLabel1; 

{$mode objfpc}{$H+} 

interface 

uses 
    Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls; 

type 
    TMyLabel1 = class(TLabel) 
    private 
    { Private declarations } 
    protected 
    { Protected declarations } 
    public 
    { Public declarations } 
    published 
    { Published declarations } 
    end; 

procedure Register; 

implementation 

procedure Register; 
begin 
    RegisterComponents('Standard',[TMyLabel1]); 
end; 

end. 

我的问题是：

1. 我怎样才能在代码中设置的字体样式像颜色和名称上面？

当我从stardard托盘选择自定义标签到表单中时，我想要设置这些属性。

我感谢您的帮助！

谢谢！

Answer 1

看看TEnhancedPanel示例wiki。