Einzelnen Beitrag anzeigen

omata

Registriert seit: 26. Aug 2004
Ort: Nebel auf Amrum
3.154 Beiträge
 
Delphi 7 Enterprise
 
#14

Re: ListView Columns aus- und einblenden (nicht width=0!)

  Alt 3. Jun 2007, 19:01
Hallo neothemachine,

mal davon abgesehen, dass ich es auch für sinnvoll halte die Daten und das Anzeigen zu trennen.

Hier mal ein Vorschlag der in deine Richtung geht...

Delphi-Quellcode:
type
  TMyListColumns = class(TListColumns)
  end;

  TMyListView = class(TListView)
  private
    FMyListColumns:TMyListColumns;
  public
    constructor create(Aowner:TComponent); reintroduce;
    destructor destroy; override;
  end;


{ TMyListView }

constructor TMyListView.create(Aowner: TComponent);
begin
  inherited create(Aowner);
  Self.Columns.free;
  FMyListColumns:=TMyListColumns.Create(Self);
  Self.Columns:=FMyListColumns;
end;

destructor TMyListView.destroy;
begin
  inherited;
end;
Gruss
Thorsten
  Mit Zitat antworten Zitat