Danke erstmal für alle Antworten. Also ich werde die Kompo von TGraphicControl ableiten. Ich weiß nur noch nicht, wie ich die Prozedur OnPaint überschreiben kann. Eine PaintBox will ich nun auch nicht mehr verwenden, sondern gleich auf die Canvas zeichnen. Aber bei jedem Versuch auf die Canvas zuzugreifen, bekomme ich die Fehlermeldung
"Element '' hat kein übergeordnetes Fenster".
Mal ein ganz einfaches Beispiel, bei dem bei mir prompt eine Fehlermeldung kommt:
Delphi-Quellcode:
unit TPhPendel;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls;
type
TPendel =
class(TGraphicControl)
private
{ Private-Deklarationen }
protected
{ Protected-Deklarationen }
public
{ Public-Deklarationen }
constructor Create(AOwner: TComponent);
override;
published
{ Published-Deklarationen }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('
Beispiele', [TPendel]);
end;
constructor TPendel.Create;
begin
inherited Create(AOwner);
Canvas.Rectangle(5, 5, 10, 10);
end;
end.