Скачать: CL | DM;

ListView   Найти похожие ветки 

← →
Девушка   (2004-04-02 21:27) [0]

Как динамически добавить subitem?

---

← →
Юноша   (2004-04-02 21:35) [1]

А там пример есть, если кнопку F1 пальчиком нажать.

---

← →
Девушка   (2004-04-02 21:37) [2]

Еще бы помощь нормально установилась :(
А про F1 я знаю, вторая клавиша слева сверху после ескейпа.

---

← →
Мужчина   (2004-04-02 21:48) [3]

Девушка  (02.04.04 21:37) [2]

Значит нужно нормально установить Help. Что же теперь за всеми теми мегабайтами информации в интернет ходить?

---

← →
Мальчик   (2004-04-02 21:49) [4]

Нужно Delphi переустановить.

---

← →
Девушка   (2004-04-02 21:52) [5]

Еще предложения...

---

← →
Девочка   (2004-04-02 22:00) [6]

А я маленькая, да удаленькая.

This example requires only a blank form.  All other objects: TListView, TListColumns, TListItems, are created dynamically.  file.You must add comctrls to the uses clause of the unit file.

procedure TForm1.FormCreate(Sender: TObject);

const
 Names: array[0..5, 0..1] ofstring = (
   ("Rubble", "Barney"),
   ("Michael", "Johnson"),
   ("Bunny", "Bugs"),
   ("Silver", "HiHo"),
   ("Simpson", "Bart"),
   ("Squirrel", "Rocky")
   );

var
 I: Integer;
 NewColumn: TListColumn;
 ListItem: TListItem;
 ListView: TListView;
begin
 ListView := TListView.Create(Self);
 with ListView do
 begin
   Parent := Self;
   Align := alClient;

   ViewStyle := vsReport;

   NewColumn := Columns.Add;
   NewColumn.Caption := "Last";
   NewColumn := Columns.Add;
   NewColumn.Caption := "First";

   for I := Low(Names) to High(Names) do
   begin
     ListItem := Items.Add;
     ListItem.Caption := Names[I][0];
     ListItem.SubItems.Add(Names[I][1]);
   end;
 end;
end;


---

← →
Девушка   (2004-04-02 22:08) [7]

А где у ListView свойство ListItem ?

---

← →
Бабушка   (2004-04-02 22:10) [8]

Items

---

← →
Дедушка   (2004-04-02 22:14) [9]

>Бабушка   (02.04.04 22:10) [8]

Ну и молодежь пошла, Ни черта не знют.

---

← →
Девушка   (2004-04-02 22:16) [10]

А где у  ListView1.Items. свойство subitem ?

---

← →
Посторонняя тетя   (2004-04-02 22:22) [11]

TListItem

---

← →
Девушка   (2004-04-02 22:25) [12]

Что TListItem?

---

← →
Посторонний дядя   (2004-04-02 22:26) [13]

TListView.Items[i] - это TListItem

---

← →
Злая тётя   (2004-04-02 22:27) [14]

На это флеём закончен!

---

← →
Злая тётя   (2004-04-02 22:32) [15]

В смысле - флейм.
Плавно переезжаем в "Потрепаться"

---

← →
Девушка   (2004-04-02 22:35) [16]

Ну наконец-то получилось.

ListView1.Items[0].SubItems.Add("aaa");

Зато сколько народу попыталось помочь... :)

А вот "А я маленькая, да удаленькая." видимо свой код не проверяла

---

← →
Читающий справку дядя   (2004-04-02 22:47) [17]

> А вот "А я маленькая, да удаленькая." видимо свой код не
> проверяла

Этот код приведен в справке и обсуждению не подлежит.

---

← →
Девушка   (2004-04-02 22:49) [18]

А что ж он не работает?
Может и хорошо, что у меня справка резанная, как раз неработающий код и вырезан наверное :)

---

← →
Девочка с цветочком   (2004-04-02 22:49) [19]

>Девушка   (02.04.04 22:35) [16]

Да уж... справочку все-таки читать надо.

---

← →
Отрок на велосипеде   (2004-04-02 22:50) [20]

>Девушка   (02.04.04 22:49) [18

Все та работает. 100%

---

← →
Девушка   (2004-04-02 22:57) [21]

Что-то я уже этим именем и в других ветках подписываюсь :)
Мнда, просто помощь нужна была, а к вечеру голова не варит.

В TListView.Items[i] "[i]" не добавляла, вот ничего и не получалось.

А справка у меня действительно резанная, а переустанавливать влом.

А примерчик не работает.

Я copy/paste

with ListView do
begin
  Parent := Self;
  Align := alClient;

  ViewStyle := vsReport;

  NewColumn := Columns.Add;
  NewColumn.Caption := "Last";
  NewColumn := Columns.Add;
  NewColumn.Caption := "First";

  for I := Low(Names) to High(Names) do
  begin
    ListItem := Items.Add;
    ListItem.Caption := Names[I][0];
    ListItem.SubItems.Add(Names[I][1]);
  end;
end;

на уже созданный ListView и ничего не получилось.

---

← →
Ох, я бы этой Девушке....   (2004-04-02 23:05) [22]

Берем код из поста [6]
и один-в-один копируем себе в приложение.
Работает ? Работает !
Разбираемся.

---

← →
Девушка   (2004-04-02 23:07) [23]

Не работает, хотя бы потому, что

Names: array[0..5, 0..1] ofstring = (

---

← →
Парень девушки на байке   (2004-04-02 23:12) [24]

Удалено модератором

---

← →
Девушка   (2004-04-02 23:15) [25]

Во-во пользуются неправильными справками и еще честных девушек на это толкают. Верх компьютерного разврата.

---

← →
Человек из толпы   (2004-04-02 23:41) [26]

Ого сколько здесь народу собралось...

---

← →
Девушка   (2004-04-02 23:49) [27]

А круто я на вопросы в основном форуме отвечаю  :)

---

← →
имя   (2004-04-05 12:15) [28]

Удалено модератором
Примечание: Флуд

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.51 MB
Время: 0.021 c