Dúvida com LIst view
Olá gostaria de saber como fazer para o listview ficar pareceido com o dbgrid, pois não consigo limpar os dados do dbgrid e me parece que com o listview tem como limpar esses dados. Obrigado
Cláudiogyn
Curtidas 0
Respostas
Mkoch
17/01/2005
Para limpar o List View é fácil.
ListView1.Clear;
Para deixa-lo parecido com o DBGrid:
Mude as seguintes propriedades:
GriLines = True
RowSelect = True
ViewStyle = csReport
Agora é só inserir as colunas e trabalhar com os dados. Eu não uso DBGrid, somente uso ListView e nunca me deixou na mão.
ListView1.Clear;
Para deixa-lo parecido com o DBGrid:
Mude as seguintes propriedades:
GriLines = True
RowSelect = True
ViewStyle = csReport
Agora é só inserir as colunas e trabalhar com os dados. Eu não uso DBGrid, somente uso ListView e nunca me deixou na mão.
GOSTEI 0
Cláudiogyn
17/01/2005
Gostaria também de saber como faço pra digitar dentro das celulas e gravar dados, inserir novo dado etc... Obrigado!!!!
GOSTEI 0
Mkoch
17/01/2005
Bem, até onde sei não é possível digitar dentro das células do ListView (com ecessão da primeira coluna).
Para INSERIR ITENS NOVOS no ListView pode ser assim:
for I := 0 to 10 do
begin
with ListView1.Items.Add do
begin
Caption := IntToStr(I);//Qualquer String. Caption é 1ª Coluna do LV
SubItems.Add(´Qualquer Texto´);//2ª Coluna do LV
SubItems.Add(´Qualquer Texto´);//3ª Coluna do LV
SubItems.Add(´Qualquer Texto´);//4ª Coluna do LV
end;//with
end;//for
Para ler os valores:
for I := 0 to ListView1.Items.Count - 1 do
begin
with ListView1.Items[I] do
begin
Edit1.Text := Caption; //É 1ª Coluna do LV
Edit2.Text := SubItems[0];//2ª Coluna do LV
Edit3.Text := SubItems[1];//3ª Coluna do LV
Edit4.Text := SubItems[2];//4ª Coluna do LV
//Assim por diante
end;//with
end;//for
Para Atualizar um valor, clicando sobre uma linha do ListView com dados(Linha selecionada):
ListView1.Selected.Caption := ´String´;//1ª Coluna
ListView1.Selected.Subitems[0] := ´String´;//2ª Coluna
ListView1.Selected.Subitems[1] := ´String´;//3ª Coluna
//Assim por diante
Alterar todos ou alguns dos items:
for I := 0 to ListView1.Items.Count - 1 do
begin
with ListView1.Items[I] do
begin
Caption := Edit1.Text ; //É 1ª Coluna do LV
SubItems[0] := Edit2.Text;//2ª Coluna do LV
SubItems[1] := Edit3.Text;//3ª Coluna do LV
SubItems[2] := Edit4.Text;//4ª Coluna do LV
//Assim por diante
end;//with
end;//for
Espero ter ajudado.
Para INSERIR ITENS NOVOS no ListView pode ser assim:
for I := 0 to 10 do
begin
with ListView1.Items.Add do
begin
Caption := IntToStr(I);//Qualquer String. Caption é 1ª Coluna do LV
SubItems.Add(´Qualquer Texto´);//2ª Coluna do LV
SubItems.Add(´Qualquer Texto´);//3ª Coluna do LV
SubItems.Add(´Qualquer Texto´);//4ª Coluna do LV
end;//with
end;//for
Para ler os valores:
for I := 0 to ListView1.Items.Count - 1 do
begin
with ListView1.Items[I] do
begin
Edit1.Text := Caption; //É 1ª Coluna do LV
Edit2.Text := SubItems[0];//2ª Coluna do LV
Edit3.Text := SubItems[1];//3ª Coluna do LV
Edit4.Text := SubItems[2];//4ª Coluna do LV
//Assim por diante
end;//with
end;//for
Para Atualizar um valor, clicando sobre uma linha do ListView com dados(Linha selecionada):
ListView1.Selected.Caption := ´String´;//1ª Coluna
ListView1.Selected.Subitems[0] := ´String´;//2ª Coluna
ListView1.Selected.Subitems[1] := ´String´;//3ª Coluna
//Assim por diante
Alterar todos ou alguns dos items:
for I := 0 to ListView1.Items.Count - 1 do
begin
with ListView1.Items[I] do
begin
Caption := Edit1.Text ; //É 1ª Coluna do LV
SubItems[0] := Edit2.Text;//2ª Coluna do LV
SubItems[1] := Edit3.Text;//3ª Coluna do LV
SubItems[2] := Edit4.Text;//4ª Coluna do LV
//Assim por diante
end;//with
end;//for
Espero ter ajudado.
GOSTEI 0
Mkoch
17/01/2005
Bem, até onde sei não é possível digitar dentro das células do ListView (com ecessão da primeira coluna).
Para INSERIR ITENS NOVOS no ListView pode ser assim:
for I := 0 to 10 do
begin
with ListView1.Items.Add do
begin
Caption := IntToStr(I);//Qualquer String. Caption é 1ª Coluna do LV
SubItems.Add(´Qualquer Texto´);//2ª Coluna do LV
SubItems.Add(´Qualquer Texto´);//3ª Coluna do LV
SubItems.Add(´Qualquer Texto´);//4ª Coluna do LV
end;//with
end;//for
Para ler os valores:
for I := 0 to ListView1.Items.Count - 1 do
begin
with ListView1.Items[I] do
begin
Edit1.Text := Caption; //É 1ª Coluna do LV
Edit2.Text := SubItems[0];//2ª Coluna do LV
Edit3.Text := SubItems[1];//3ª Coluna do LV
Edit4.Text := SubItems[2];//4ª Coluna do LV
//Assim por diante
end;//with
end;//for
Para Atualizar um valor, clicando sobre uma linha do ListView com dados(Linha selecionada):
ListView1.Selected.Caption := ´String´;//1ª Coluna
ListView1.Selected.Subitems[0] := ´String´;//2ª Coluna
ListView1.Selected.Subitems[1] := ´String´;//3ª Coluna
//Assim por diante
Alterar todos ou alguns dos items:
for I := 0 to ListView1.Items.Count - 1 do
begin
with ListView1.Items[I] do
begin
Caption := Edit1.Text ; //É 1ª Coluna do LV
SubItems[0] := Edit2.Text;//2ª Coluna do LV
SubItems[1] := Edit3.Text;//3ª Coluna do LV
SubItems[2] := Edit4.Text;//4ª Coluna do LV
//Assim por diante
end;//with
end;//for
Espero ter ajudado.
Para INSERIR ITENS NOVOS no ListView pode ser assim:
for I := 0 to 10 do
begin
with ListView1.Items.Add do
begin
Caption := IntToStr(I);//Qualquer String. Caption é 1ª Coluna do LV
SubItems.Add(´Qualquer Texto´);//2ª Coluna do LV
SubItems.Add(´Qualquer Texto´);//3ª Coluna do LV
SubItems.Add(´Qualquer Texto´);//4ª Coluna do LV
end;//with
end;//for
Para ler os valores:
for I := 0 to ListView1.Items.Count - 1 do
begin
with ListView1.Items[I] do
begin
Edit1.Text := Caption; //É 1ª Coluna do LV
Edit2.Text := SubItems[0];//2ª Coluna do LV
Edit3.Text := SubItems[1];//3ª Coluna do LV
Edit4.Text := SubItems[2];//4ª Coluna do LV
//Assim por diante
end;//with
end;//for
Para Atualizar um valor, clicando sobre uma linha do ListView com dados(Linha selecionada):
ListView1.Selected.Caption := ´String´;//1ª Coluna
ListView1.Selected.Subitems[0] := ´String´;//2ª Coluna
ListView1.Selected.Subitems[1] := ´String´;//3ª Coluna
//Assim por diante
Alterar todos ou alguns dos items:
for I := 0 to ListView1.Items.Count - 1 do
begin
with ListView1.Items[I] do
begin
Caption := Edit1.Text ; //É 1ª Coluna do LV
SubItems[0] := Edit2.Text;//2ª Coluna do LV
SubItems[1] := Edit3.Text;//3ª Coluna do LV
SubItems[2] := Edit4.Text;//4ª Coluna do LV
//Assim por diante
end;//with
end;//for
Espero ter ajudado.
GOSTEI 0
Cláudiogyn
17/01/2005
É que eu queria inserir os seguintes dados:
Codigo curso Quantidadehoras
Como faço pra colocar 3 edits para informar esses dados e depois salvar os dados e limpar os dados digitados que apareceram no listview. E tem como ir digitando em edit e aparecendo no listview? E depois ao inserir o novo codigo limpar tudo. Por que no mesmo codigo pode haver varios cursos. Obrigado
Codigo curso Quantidadehoras
Como faço pra colocar 3 edits para informar esses dados e depois salvar os dados e limpar os dados digitados que apareceram no listview. E tem como ir digitando em edit e aparecendo no listview? E depois ao inserir o novo codigo limpar tudo. Por que no mesmo codigo pode haver varios cursos. Obrigado
GOSTEI 0
Cláudiogyn
17/01/2005
sobe
GOSTEI 0