Neue TImage Komponente entwickeln

[pmc]

Hier mal mein Code :

Delphi-Quellcode:

 TBBox = class(timage)
  private
    FBBoxState : TBBoxState;
    FBitmapNormal : String;
    FBitmapOver : String;
    FBitmapClick : String;
    { Private declarations }
  protected
    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 TBBox.MouseMove(shift: TShiftState; x,y:Integer);
begin
TBBox.picture.loadfromfile(FBitmapOver); (aber das funzt ja so nicht)
inherited MouseMove(shift,x,y);
end;