Hm das kann es nicht sein, behaupte ich mal so, da ich nach dem Kompilieren der Komponente und dem Öffnen des Testprojektes direkt beim Anklicken der Komponente einen abstrakten Fehler erhalte.
Delphi-Quellcode:
private
FPicture:TGraphic;
constructor TmyPanel.Create(AOwner: TComponent);
begin
FPicture := TGraphic.Create;
inherited Create(AOwner);
Align := alNone;
BgColorFrom := clWhite;
BgColorTo := clSilver;
BorderColor := clGray;
BorderStyle := psSolid;
BorderWidth := 2;
end;
destructor TmyPanel.Destroy;
begin
inherited;
FPicture.Free;
end;
Meldungen vom Compiler:
[Warnung] myPanel.pas(89): Instanz von 'TGraphic' mit der abstrakten Methode 'TGraphic.LoadFromStream' wird angelegt
[Warnung] myPanel.pas(89): Instanz von 'TGraphic' mit der abstrakten Methode 'TGraphic.SaveToStream' wird angelegt
[Warnung] myPanel.pas(89): Instanz von 'TGraphic' mit der abstrakten Methode 'TGraphic.LoadFromClipboardFormat' wird angelegt
[Warnung] myPanel.pas(89): Instanz von 'TGraphic' mit der abstrakten Methode 'TGraphic.SaveToClipboardFormat' wird angelegt