Neue TImage Komponente entwickeln

[Ronny Grabo]

Hallo,

Zitat:

Ich müsste eigentlich nur wissen wie ich der property "Picture" von
TImage eine Bitmap zuweisen kann(Inerhalb einer procedure der Komponente, als nicht im späteren programm)

Hier mal ein bischen Code :

Delphi-Quellcode:

    TBBox = class(timage)
    private
//    FBBoxState : TBBoxState;
    FBitmapNormal : String;
    FBitmapOver : String;
    FBitmapClick : String;
    MyPicture:TPicture;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    { Private declarations }
  protected
    procedure SetzeBild(Bild: TPicture);
    procedure MouseMove(shift: TShiftState; x,y:Integer); override;
    { Protected declarations }
  public
//    property BBoxState : TBBoxState read FBBoxState write FBBoxState;
    { Public declarations }
  published
    property Width;
    property BmpNormal : String read FBitmapNormal write FBitmapNormal;
    property BmpOver : String read FBitmapOver write FBitmapOver;
    property BmpClick : String read FBitmapClick write FBitmapClick;
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Beispiele', [TBBox]);
end;

constructor TBBox.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
MyPicture:=TPicture.Create;
end;

destructor TBBox.Destroy;
begin
MyPicture.Free;
inherited Destroy;
end;
procedure TBBox.SetzeBild(Bild: TPicture);
begin
MyPicture:=Bild;
Self.picture:=Bild;
end;

procedure TBBox.MouseMove(shift: TShiftState; x,y:Integer);
begin
MyPicture.LoadFromFile(FBitmapOver); //aber das funzt jetzt
SetzeBild(MyPicture);
inherited MouseMove(shift,x,y);
end;

Gruß Ronny.