自己写的组件中包含一个TImage,并且在组件的Published里添加了TImage属性,设计期时可以选择一个图片到TImage的实例里,但在运行期却怎么也不显示,请问大家是什么原因呢?
组件的构造方法:(组件名:TImageLink,TImage实例:FIcon)
constructor TImageLink.Create(AOwner: TComponent);
begin
inherited;
Self.Width := 136;
Self.Height := 96;
FIcon := TImage.Create(Self);
FIcon.Parent := Self;
FIcon.Name := 'Icon';
FIcon.Left := 0;
FIcon.Top := 0;
FIcon.Width := 136;
FIcon.Height := 96;
FIcon.Transparent := True;
end;
组件的构造方法:(组件名:TImageLink,TImage实例:FIcon)
constructor TImageLink.Create(AOwner: TComponent);
begin
inherited;
Self.Width := 136;
Self.Height := 96;
FIcon := TImage.Create(Self);
FIcon.Parent := Self;
FIcon.Name := 'Icon';
FIcon.Left := 0;
FIcon.Top := 0;
FIcon.Width := 136;
FIcon.Height := 96;
FIcon.Transparent := True;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货