klassen prozedur

[neolithos]

Mein Vorschlag:

Delphi-Quellcode:

class
  TMyPanel = class(TPanel) // bzw. TWinControl
  private
    panTee,
    panInput : TPanel; // warum überhaupt zwei zusätzliche Panel's ????
  public
    constructor Create(afOwner : TComponent); override;
  end;


constructor Create(afOwner : TComponent); override;
begin
  inherited Create(afOwner);

  panTee := TPanel.Create(Self);
  panTee.Parent := Self; 
  ....
end;