Архив форумов ЦИТФорума

[Laymer]

Люди неподскажите кат добавить новый Item и SubItem программным способом. Заранее благодарен.

[Moorka]

procedure TForm1.FormCreate(Sender: TObject);
var
k: integer;
ListItem: TListItem;
begin
with ListView1 do
begin
//Ukazivajem istocnik izobrazenij SmallImages:=ImageList1;
LargeImages:=ImageList1;
//napolniajem ListView1 piktogramami i tekstom
For k:=0 to ImageList1.Count - 1 do
begin
//dobavliajem element i poluciajem na nego ssilku
ListItem:=Items.Add;
//Ukazivajem index sviazannogo izobrazenija
ListItem.ImageIndex:=k;
//Vstavliajem nadpis image N
ListItem.Caption:='Image' + Inttostr(k);
end;
//napolniajem spisok COMBOBOX1 dostupnimi stiliami Listview
Combobox1.Items.Addobject('vsIcon',TObject(vsIcon));
Combobox1.Items.Addobject('vsList',TObject(vsList));
Combobox1.Items.Addobject('vsReport',TObject(vsReport));
Combobox1.Items.Addobject('vsSmallIcon',TObject(vsSmallIcon));

//pokazivajem pervij styl v Combobox
Combobox1.Itemindex:=0;

//Sozdajom kolonku dlia rezima vsReport
Columns.Add;
Columns[0].Caption:='Kolonka1';
Columns[0].Width:=80;
end;

end;

UDACI!!!