Speicherfrage dynamische ListView

[marabu]

Richtig:

Delphi-Quellcode:

type
  TDemoForm = class(TForm)
    ListView: TListView;
    TopActionPanel: TPanel;
    StatusBar: TStatusBar;
    AddButton: TButton;
    RemoveButton: TButton;
    procedure AddButtonClick(Sender: TObject);
    procedure RemoveButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    MoreView: TListView;
    Splitter: TSplitter;
  public
  end;

var
  DemoForm: TDemoForm;

implementation

{$R *.dfm}

procedure TDemoForm.AddButtonClick(Sender: TObject);
begin
  MoreView := TListView.Create(self);
  with MoreView do
  begin
    Align := alRight;
    Width := self.Width shr 1;
    Parent := self;
  end;
  Splitter := TSplitter.Create(self);
  with Splitter do
  begin
    Align := alRight;
    Parent := self;
  end;
end;

procedure TDemoForm.RemoveButtonClick(Sender: TObject);
begin
  FreeAndNil(MoreView);
  FreeAndNil(Splitter);
end;

procedure TDemoForm.FormCreate(Sender: TObject);
begin
  ListView.Align := alClient;
end;

Grüße vom marabu