Wie baue ich eine Klasse die zwei Listviews enthält?

[backdraft]

Hallo,

ich brauche eine Klasse die zwei Listviews enthält. Wie kann ich verhindern, das man die beiden Listviews im Designer auswählen kann. vlt ist mein Ansatz ja auch ganz falsch.

Ich habe bis jetzt folgendes:

Delphi-Quellcode:

type
  TTestListView = class(TWinControl)
  private
   lv1: TListView;
   lv2: TListView;
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
    procedure CreateWnd; override;
  public
   constructor Create(AOwner: TComponent); override;
   destructor  Destroy; override;
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Beispiele', [TTestListView]);
end;

constructor TTestListView.Create(AOwner: TComponent);
begin
  inherited;
  lv1 := TListView.Create(AOwner);
  lv1.Tag := 0;
  lv2 := TListView.Create(AOwner);
  lv2.Tag := 0;
end;

procedure TTestListView.CreateWnd;
begin
  inherited;

  IF lv1.Tag = 0 THEN BEGIN
    lv1.Parent := Self;
   END;

  IF lv2.Tag = 0 THEN BEGIN
    lv2.Parent := Self;
  END;

end;

destructor TKDRListViewCards.Destroy;
begin
  IF lv1 <> nil THEN lv1.Free;
  IF lv2 <> nil THEN lv2.Free;
  inherited;
end;