如下控件,使用TBitmap时,图片可以正确载入,使用TPicture时,图片不能载入?什么原因???(100分)

  • 主题发起人 主题发起人 jack2004
  • 开始时间 开始时间
J

jack2004

Unregistered / Unconfirmed
GUEST, unregistred user!
TMyGlyphs = class(TPersistent)
private
FGlyph: TBitmap;
procedure SetGlyph(Value: TBitmap);
protected
public
constructor Create;
destructor Destroy; override;
published
property Glyph: TBitmap read FGlyph write SetGlyph;
end;
.............
procedure TMyGlyphs.SetGlyph(Value: TBitmap);
begin
if Value <> FGlyph then
FGlyph.Assign(Value);
end;

上面的程序被另一继承自TPersistent的程序引用,然后在一控件中引用。
上面控件,使用TBitmap时,图片可以正确载入,使用TPicture时,图片不能载入?什么原因??
另外,载入图片后,控件不能立即显示图片内容,必须刷新屏幕才可以(例如在IDE环境下,点击控件)
 
FGlyph:=Value;
 
早就试过了,没用!
 
TMyGlyphs = class(TPersistent)
private
FGlyph: TPicture;
procedure SetGlyph(Value: TPicture);
protected
public
constructor Create;
destructor Destroy; override;
published
property Glyph: TPictureread FGlyph write SetGlyph;
end;
.............
procedure TMyGlyphs.SetGlyph(Value: TPicture);
begin
if Value <> FGlyph then begin
FGlyph.Assign(Value);
Invalidate;//重画
end;
end;
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
851
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部