Eigene Button Komponente

[Alter Mann]

Hi,

was ist denn das?

Zitat:

constructor TGraphicButton.Create(AOwner: TComponent);
begin
inherited Create(AOwner);

FPicture := TBitmap.Create;
Picture := TBitmap.Create;
end;

FBitmap ist die lokale Variable innerhalb deines Objektes und Picture der öffentlicher Verweis darauf, wozu dann

Zitat:

Picture := TBitmap.Create;

das wäre doppeltgemoppelt.

Und warum TBitmap? Normaler Weise sollte es so aussehen:

Delphi-Quellcode:

  TGraphicButton = class(TCustomControl)
  private
    ...
    FPicture: TPicture;
    procedure SetPicture(Value: TPicture);
    ...
    property Picture: TPictureread FPicture write SetPicture;
  end;

Damit ist es egal ob die Quelle eine Bitmap, JPEG, PNG oder sonst etwas ist.

Bezüglich des Overheat sollte allerdings von TGraphicControl abgeleitet werden, steht auch so in der Hilfe.