Also ich habe das jetzt ma eben schnell zusammen geklatscht und getestet. bei mir klappt es problemlos (design+runtime)
MyImage.pas:
Delphi-Quellcode:
unit MyImage;
interface
uses
SysUtils, Classes, Controls, ExtCtrls;
type
TMyImage =
class(TImage)
private
{ Private-Deklarationen }
protected
{ Protected-Deklarationen }
public
{ Public-Deklarationen }
constructor Create(AOwner: TComponent);
override;
published
{ Published-Deklarationen }
end;
procedure Register;
implementation
{$R MyImage.res}
procedure Register;
begin
RegisterComponents('
Samples', [TMyImage]);
end;
constructor TMyImage.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
self.Picture.Bitmap.LoadFromResourceName(hInstance, '
DEFAULT_IMAGE');
end;
end.
MyImage.rc:
DEFAULT_IMAGE BITMAP "MyImage.bmp"
MyImage.pas erstellt, MyImage.rc erstellt, brcc32 MyImage.rc und danach dann die komponente über die
ide installiert.
kann sie problemlos verwenden.