Hallöchen,
ich bin grad dabei eine neue Componente zu erstellen die von TWinControl abgeleitet ist.
Delphi-Quellcode:
TGraphicButtonx = class(TWinControl)
private
ShowPic: TImage;
bildup: TBitmap;
bilddown: TBitmap;
procedure setbildup(bild: TBitmap);
function getbildup: TBitmap;
procedure setbilddown(bild: TBitmap);
public
constructor create(AOwner: TComponent); override;
destructor destroy; override;
property pictureup: TBitmap read getbildup write setbildup;
property picturedown: TBitmap read bilddown write setbilddown;
end;
wie erreiche ich wenn
Delphi-Quellcode:
var tmp001: TGraphicButtonx;
begin
tmp001 := TGraphicButtonx.Create(Self);
tmp001.pictureup.Assign(image1.picture.bitmap);
aufgerufen wird die metheode setbildup aufgerufen wird??
setbildup wird nur aufgerufen wenn
tmp001.pictureup := image1.picture.bitmap;
ausgeführt wird, in keine anderen fall...