TBitmap als property von TWinControl-Ableitung

[SirThornberry]

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...

[Christian Seehase]

Moin SirThornberry,

Zitat:

Zitat von SirThornberry

setbildup wird nur aufgerufen wenn

tmp001.pictureup := image1.picture.bitmap;

ausgeführt wird, in keine anderen fall...

Und warum weist Du es dann nicht so zu?

Zum Thema := und Assign haben wir gerade an anderer Stelle eine Diskussion. Wenn Du mal nach Assign TFont suchst, müsstest Du eigentlich fündig werden.

[SirThornberry]

das assign war nur ein Beispiel. Wenn ich eine TStringlist als Property habe funktioniert das dort auch nicht richtig wenn ich TStringlist(irgendwas).text zuweisen will. Da das ganze eine Componente werden soll kann ich nicht sicherstellen das der nutzer direkt zuweist und nicht zufällig assign nimmt oder z.B. die die größe der Bitmap (width / height) ändert.