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.