ListBox

← →
Blari (2006-05-26 00:48) [0]

У меня есть форма, там ListBox и Edit1
По нажатию на кнопку в ListBox добавляется содержание Edit1.
Требуется чтобы то что добавлялось в ListBox нумеровалось (Пример: 1) Бла бла. 2) Бла бла)
Добавляю вот так
ListBox1.Items.Insert(ListBox1.ItemIndex, Edit1.Text);

← →
Джо © (2006-05-26 00:54) [1]

Заводишь счетчик с нужной степенью глобальности. Инкрементируешь при каждом добавлении. Добавляешь:
ListBox1.Items.Insert(ListBox1.ItemIndex, IntToStr(Counter) + ": " + Edit1.Text);

P.S. А ты уверен, что тебе нужен Insert, а не Add?

← →
Blari (2006-05-26 00:57) [2]

А есть принципиальная разница?

← →
Галинка © (2006-05-26 00:57) [3]

что использовать в качестве номера?

1) индекс строки в которую вставляешь
ListBox1.Items.Insert(ListBox1.ItemIndex, IntToStr(ListBox1.ItemIndex)+Edit1.Text);

2) номер связан с нажатием кнопки: заводишь какой-нибудь сторонний счетчик нажатий на кнопку (например, в свойстве Tag кнопки) и
ListBox1.Items.Insert(ListBox1.ItemIndex, IntToStr(Butto1.Tag)+Edit1.Text);

А почему Insert, а не Add?

← →
Джо © (2006-05-26 00:59) [4]

> [2] Blari (26.05.06 00:57)
> А есть принципиальная разница?

Твой код добавляет элемент перед выделенной строкой в листбоксе. Add добавляет в конец списка. А что именно нужно — тебе виднее :)

← →
Галинка © (2006-05-26 00:59) [5]

Ой... Извиите, конечно
ListBox1.Items.Insert(ListBox1.ItemIndex, IntToStr(Buttoт1.Tag)+") "+Edit1.Text);

← →
Blari (2006-05-26 00:59) [6]

> А почему Insert, а не Add?

Я использую определенное место вставки, думал удобнее будет через Insert

← →
Blari (2006-05-26 01:01) [7]

> Твой код добавляет элемент перед выделенной строкой в листбоксе.
> Add добавляет в конец списка. А что именно нужно — тебе
> виднее :)

Вот и я о том же :)

← →
Blari (2006-05-26 01:05) [8]

Не понимаю, делаю все как было сказано (ListBox1.Items.Insert(ListBox1.ItemIndex, IntToStr(ListBox1.ItemIndex)+Edit1.Text);), а результат нулевой.

← →
Blari (2006-05-26 01:12) [9]

Извиняюсь, разобрался.
Спасибо за аперативность

нафиг счетчик и инкрементатор:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var strTemp:string; begin With ( Control As tListBox ).Canvas Do Begin FillRect(Rect); TextOut(Rect.Left, Rect.Top+((Rect.Bottom-Rect.Top)-TextHeight("1A")) div 2," "+inttostr( index+1 )+". "+( Control As TListBox ).Items[index] ); End; end;

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