Eigene Komponente: TImages werden zur Laufzeit nicht angezeigt

[Bummi]

Ohne es zu testen würde ich zu folgendem Versuch raten (die TPictures weglassen)

Delphi-Quellcode:

    property PictureNormal: TPicture read GetPictureNormal write SetPictureNormal;
    property PictureHot: TPicture read GetPictureHot write SetPictureHot;



procedure TTestControl.SetPictureNormal(APicture: TPicture);
begin
  FButtonNormal.Picture.Assign(APicture);
end;

procedure TTestControl.SetPictureHot(APicture: TPicture);
begin
  FButtonHot.Picture.Assign(APicture);
end;

Function TTestControl.GetPictureNormal: TPicture;
begin
  Result := FButtonNormal.Picture;
end;

Function TTestControl.GetPictureHot: TPicture;
begin
  Result :=FButtonHot.Picture;
end;