Komponeten zerstören

[Christian Seehase]

Moin Chewie,

nur um mal die, nicht vorhandene, Problematik mit dem Typecast vorzuführen:

Delphi-Quellcode:

type
  TMyPanel = class(TPanel)
  public
    destructor Destroy; override;
  end;

implementation

{$R *.DFM}

destructor TMyPanel.Destroy;
begin
  ShowMessage('und kaputt...');
  inherited;
end;

procedure TForm1.Button1Click(Sender: TObject);

var
  mp : TMyPanel;

begin
  mp := TMyPanel.Create(self);
  TComponent(mp).Free;
end;