如何给自定义控件添加一个picture 类型的属性 delphi

TMyComponent = class(TComponent)

private

FPicture: TPicture

procedure SetPicture(Value: TPicture)

published

property Picture: TPicture read FPicture write SetPicture

//....

end

implementation

{$R *.dfm}

procedure TMyComponent.SetPicture(Value: TPicture)

begin

FPicture.Assign(Value)

end

你自己都说state是TLedState类型，就表示它只吃整数型态或TLedState宣告的别名。

要控制ON/OFF

xxx.State := IsOff 或者 xxx.State := TLedState( 0 )

xxx.State := IsOn 或者 xxx.State := TLedState( 1 )

---