Inserir Dados no ListView.

Delphi

03/11/2003

alguem sabe como inserir dados no ListView? Tenho duas colunas na ListView e queria inserir os dados nessas colunas.

valeu


Giovani

Giovani

Curtidas 0

Respostas

Ltres

Ltres

03/11/2003

Eu faço assim!

procedure TF_Principal.ToolBar1Click(Sender: TObject);
var
  col1, col2, col3: string;
begin
  with ListView1.Items.Add do
  begin
    Caption := ´Texto coluna 1´;
    SubItems.Append(´Texto coluna 2´);
    SubItems.Append(´Texto coluna 3´);
  end;


  with ListView1.Selected do
  begin
    Col1 := Caption;
    Col2 := SubItems.Strings[0];
    Col3 := SubItems.Strings[1];
  end;
end;


Pra gravar a coluna 1 fica como Caption e as oustras só vo adicionando no subitems com append.
Pra ler é a mesma coisa, só q no lugar de Append eu coloco Strings[x]

Funca legal! 8)


GOSTEI 0
POSTAR