wiersze ListView

0

powiedz bo juz nic nie rozumiem...
znalazlem na forum cos takiego

var
 itm : TListItem;
begin
    itm := ListView1.Items.Add;
    itm.Caption := 'string pierwsza kolumna';
    itm.subitems.Add('string druga kolumna');
    itm.subitems.Add('string trzecia kolumna');

powinno niby robic mi 2 kolumny jak rozumie a robi tylko 1 kolumne. W Editing ListViwe mam ustawione 3 kolumny wiec powinno byc dobrze a nie jest.

A drugie pytanie skoro to co powyzej dodaje kolumny to jak zrobic by bylo dodawanie wierszy ??</email>

0

Powyższy kod dodaje tylko wartości kolumn (SubItems) dla danego wiersza (Item). Nie zmienia pokazywanej ilości kolumn w ListView.

Jak odczytać stan pamięci operacyjnej

0

aha chyba kumma, a powiedz mi jeszcze jak mam zrobic taka kolumne w ListView ?


id | nazwa |

1 | qqq |

2 | ppp |

prosilbym o jakis prosty kod

0

mam podobne pytanie jak tworzyc WIERSZE w ListView i ladowac tam dane ??!!!

0

Wpisywanie nowych danych do Listview? Proste :P

  1. Wstawiasz na formę ListView.
  2. Klikasz prawym na niego i dajesz na Columns Editor.
  3. Klikasz na Add New lub klawisz Insert.
  4. Podajesz Caption (tytuł) nowej kolumny, szerokosć itd. Kliknij też na Autosize = True to po kompilacji będą uwzględnione wymiary kolumny podane w Properties.
  5. Powiedzmy że masz zrobione 3 kolumny: Imię, Nazwisko, Numer GG

Aby dodać nowy wiersz (czyli podać jednoczesnie dane do tych 3 kolumn) robisz:

  1. Wstaw Button na formę i kliknij na niego wchodząc do edytora kodu.
  2. Deklarujesz zmienną Item:
var
  Item: TListItem;
  1. Teraz pod begin:
 Item.Caption :=Dane_do_kolumny_Imię;//np. Jan
  Item.SubItems.Add(Dane_do_kolumny_Nazwisko);//np. Kowlaski
  Item.SubItems.Add(Dane_do_kolumny_Numer GG);//np. 123456

Item.Caption to twoja główna kolumna "Imię".
Potem zaczynają się Subitemy tej kolumny: Item.SubItems - "Nazwisko" i "Numer GG"

Po wpisaniu tych trzech danych, powstaje nowy wiersz w Listview.
Proste i na temat :)

0

Poprawka do kodu:

Item := Listy.Items.Add;
Item.Caption :=Dane_do_kolumny_Imię;//np. Jan
  Item.SubItems.Add(Dane_do_kolumny_Nazwisko);//np. Kowlaski
  Item.SubItems.Add(Dane_do_kolumny_Numer GG);//np. 123456

Zjadłem pierwszą linijkę

Item := ListView1.Items.Add;
0

super odpowiedz !!!
tylko pytanko czy przed

... ( Item:=listview1.items.add; )*
  Item.Caption :='Jan';//np. Jan
  Item.SubItems.Add('Kowalski');//np. Kowlaski
  Item.SubItems.Add('123456');//np. 123456
    • nie powinno byc tego ??

ja niby wszystko dodalem ale wypisuje mi tylko Jan bez Kowlaskiego i nr gg

0

Wrzuć na formę 3 Edity i przycisk, który nazwiesz "Dodaj"

Do tego Buttona wrzuć ten kodzik i na bank będzie dodawać. Oczywiście Listview daj na ViewStyle = vsReport.

procedure TForm1.Button1Click(Sender: TObject);
var
 Item: TListItem;
begin
Item := ListView1.Items.Add;
Item.Caption :=Edit1.Text;//np. Jan
  Item.SubItems.Add(Edit2.Text);//np. Kowlaski
  Item.SubItems.Add(Edit3.Text);//np. 123456
end;

:):)

1 użytkowników online, w tym zalogowanych: 0, gości: 1