TListView. Versteckte Spalten oder Alternative ?

[shareholder]

hallo, ich möchte dem benutzer einige informationen verwehren, aber denn noch die ganzen daten in der listview stehen haben. wie kann ich das machen ?

bsp.: spaltenname : hidden_column (<- aus dieser kann ich per code auslesen)

sollte dies nicht möglich sein, welche alternative dazu gibt es ?

[neolithos]

Entweder die Spalte erhält eine breite von 0 bzw. -1

oder

du hängst die zusätzlichen Daten an die Eigenschaft DATA des ListView-Items.

[shareholder]

kannst du mir evtl. ein kleines beispiel geben ?
blicke bei der pointer-geschichte, die sich ja unmittelbar mit data verbindet,
leider absolut nicht durch !

danke

[neolithos]

Bsp. Daten:

Delphi-Quellcode:

  TDaten = class
  private    
    sD1,
    sD2 : String;
  public
    constructor Create(sD1, sD2 : String);

    function ...    

    property D1 : String ...
  end;

Füllen der Liste:

Delphi-Quellcode:

  with lst.Items.Add do
    begin
      ....
      Data := Pointer(TDaten.Create('huhu', 'haha'));
    end;

Freigeben wird alles in OnDeletion

Delphi-Quellcode:

procedure TForm.ListView1Deletion(Sender: TObject; Item: TListItem);
begin
  TObject(Item.Data).Free;
end;

Bsp-Zugriff in OnSelectItem

Delphi-Quellcode:

procedure ...(Sender: TObject; Item: TListItem; Selected: Boolean);
begin
  ShowMessage(TDaten(Item.Data).D1);
end;

[shareholder]

muss das erstmal verkraften ! DANKÖÖÖ !!!! 8)