Hallo zusammen,
mal wieder was kniffeliges.
Ich habe eine Komponente (TDruckerPanel) gebaut, abgeleitet von TPanel.
Wenn ich diese auf eine Form ziehen will, dann kommt o.g. unrühmliche Fehlermeldung (siehe Bild im Anhang).
Wer hat da für mich mal nen Rat?
EDIT: Auch ein inherited create(AOwner) bringt nix.
Hier mal der Code der Komponente:
Code:
unit uTestPanel;
interface
uses System.Classes,
Vcl.ExtCtrls,
Vcl.StdCtrls;
Type
TMyPanel = Class(TPanel)
private
//
btn : TButton;
public
Constructor Create(AOwner : TComponent); Override;
Destructor Destroy; Override;
End;
implementation
uses System.SysUtils;
Constructor TMyPanel.Create(AOwner : TComponent);
begin
inherited create(AOwner);
btn := TButton.Create(AOwner);
end;
Destructor TMyPanel.Destroy;
begin
FreeAndNil(btn);//
end;