Question

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

报错啊！

Answer 1

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;

Answer 2

首先在public里定义一个picture类型b2:TImage;
在某种情况下产生一个图片，例如按下某个按钮
procedure Tform1.Button1onClick(Sender: TObject);
begin
b2:=TImage.Create(Application.MainForm);//产生picture
b2.Parent:=panel1;//放置的位置
b2.Picture.Assign(b1.Picture);//显示的图片和b1一样，也可以是电脑里，修改路径就行了
end;

Answer 3

Property myPicture:TPicture read FValue wirte FValue;