Problemas ListView

Question

Quando adiciono um item no ListView em run time n�o aparece o caption do �tem. Quando adiciono em design time aparece o caption que dou para ele. Algu�m sabe porque isso? Estou esquecendo de setar alg...

Andremuller · Answer

sobe...

Andremuller · Answer

Resolvido.N�o sei porque motivo, mas deve-se setar o caption depois de adicionar o objeto. Como no c�digo abaixo[code:1:991facb220]var  oItem: TListItem;begin  oItem := TListItem.Create(lv.Items);  oItem.ImageIndex := 0;  lv.Items.AddItem(oItem);  //tem que setar depois sen�o n�o funciona  lv.Items&#91;lv.Items.IndexOf(oItem)&93;.Caption := �Teste�;end;[/code:1:991facb220]...

Macario · Answer

Pode-se usar o metodo Invalidate;...

Andremuller · Answer

obrigado pela resposta, mas o m�todo enviado n�o funcionou, segundo c�digo abaixo:

var
  oItem: TListItem;
begin
  oItem := TListItem.Create(lv.Items);
  oItem.ImageIndex := 0;
  oItem.Caption := �Teste�;
  lv.Items.AddItem(oItem);
  lv.Invalidate;

De qualquer forma, como j� envie no e-mail anterior, encontrei uma solu��o, apesar que eu preferiria utilizar algum m�todo como o Invalidade para qualificar mais o c�digo.

Obrigado

Massuda · Answer

Apenas por curiosidade...Eu nunca tive o problema que voc� descreveu. O c�digo que uso para incluir um item em um list view � algo do tipo...[code:1:1f9c5384dd]var  oItem: TListItem;begin  oItem := lv.Items.Add;  oItem.Caption := �Teste�;  oItem.ImageIndex := 0;[/code:1:1f9c5384dd]Entretanto, seu c�digo...[quote:1f9c5384dd=�andremuller�][code:1:1f9c5384dd]var   oItem: TListItem; begin   oItem := TListItem.Create(lv.Items);   oItem.Caption := �Teste�;   oItem.ImageIndex := 0;   lv.Items.AddItem(oItem);[/code:1:1f9c5384dd][/quote:1f9c5384dd]n�o compila... d� o erro[quote:1f9c5384dd]Undeclared identifier: �AddItem�[/quote:1f9c5384dd]Qual vers�o de Delphi voc� est� usando?A vari�vel lv � um TListView?...

Andremuller · Answer

Utilizo Delphi6 e lv � um TListView .Achei que o m�todo AddItem poderia ent�o ter sido escrito aqui na empresa por�m verifiquei que ele realmente � um m�todo da ComCtrls (function TListItems.AddItem(Item: TListItem; Index: Integer): TListItem;) e consta no help do Delphi. Apesar da solu��o postada por mim resultar no mesmo que postou o colega Massuda, achei o c�digo dele mais coerente e organizado, vou adot�-lo.Obrigado...

Massuda · Answer

[quote:8e2888ad5e=�andremuller�]Utilizo Delphi6 [...][/quote:8e2888ad5e]T� explicado... no momento estou usando D5....

Macario · Answer

Ola eu utilizado a ListView em substitui��o do DBGrid

Pelo metodo OnData do ListView fa�o o seguinte

procedure TFrmBoletoLaser.lsvRetornoData(Sender: TObject; Item: TListItem);
begin
  cdsRetorno.RecNo := (Item.Index+1);
  Item.Caption := cdsRetornoTIPO.DisplayText;
  Item.SubItems.Add(cdsRetornoDoc.DisplayText);
  Item.SubItems.Add(cdsRetornoTITULO.DisplayText);
  Item.SubItems.Add(cdsRetornoDESCRICAO.DisplayText);
  Item.SubItems.Add(cdsRetornoDATVEN.DisplayText);  
  Item.SubItems.Add(cdsRetornoVLRTITULO.DisplayText);
  Item.SubItems.Add(cdsRetornoVLRPGTO.DisplayText);
  Item.SubItems.Add(cdsRetornoDATENT.DisplayText);
  Item.SubItems.Add(cdsRetornoDATLIQ.DisplayText);
  Item.SubItems.Add(cdsRetornoVLRJUROS.DisplayText);
  Item.SubItems.Add(cdsRetornoVLRIOF.DisplayText);
  Item.SubItems.Add(cdsRetornoVLRABAT.DisplayText);
  Item.SubItems.Add(cdsRetornoVLRDESC.DisplayText);
  Item.SubItems.Add(cdsRetornoVLRMORA.DisplayText);
  Item.SubItems.Add(cdsRetornoNBANCO.DisplayText);
  case StrToInt(cdsRetornoTIPO.AsString) of
  2:  Item.ImageIndex := 0;
  3:  Item.ImageIndex := 1;
  6:  Item.ImageIndex := 2;
  10: Item.ImageIndex := 3;
  11: Item.ImageIndex := 4;
  12: Item.ImageIndex := 5;
  15: Item.ImageIndex := 6;
  17: Item.ImageIndex := 7;
  23: Item.ImageIndex := 8;
  26: Item.ImageIndex := 9;
  34: Item.ImageIndex := 10;
  51: Item.ImageIndex := 11;
  52: Item.ImageIndex := 12;
  53: Item.ImageIndex := 13;
  end;


end;

Obs: Setar a propriedade Owner para [b:92c7adf6fa]True[/b:92c7adf6fa]

Uso isso no Delphi 6 usando ClientDataSet pra alimentar os dados

F�rum Problemas ListView #265055