Image - Keine Reaktion

[Merlin1988]

1. Danke für die Begrüssung
2. Danke für die Hilfen
3. Wenn ich das jetzt aber in eine eigene Komponente einbauen will,(abgeleitet von TPainbox), meckert er "Control has no parent window" wenn ich zeichnen will.

Delphi-Quellcode:

unit TestPaintbox;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, ExtCtrls;

type
  TTestPaintbox = class(TPaintbox)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure Upgrade;
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('My Own', [TTestPaintbox]);
end;

{ TTestPaintbox }

constructor TTestPaintbox.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Upgrade;
end;

destructor TTestPaintbox.Destroy;
begin
  inherited Destroy;
end;

procedure TTestPaintbox.Upgrade;
begin
    Self.Canvas.Ellipse(50,50,60,60);
end;

end.

Das war für mich der Vorteil mit Image zu arbeiten, da dort diese Fehlermeldung nicht kam.