Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.06.11;
Скачать: CL | DM;

Вниз

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]

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


 
antonn ©   (2006-05-26 06:48) [10]

нафиг счетчик и инкрементатор:
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;


 
Loginov Dmitry ©   (2006-05-26 09:51) [11]

antonn ©   (26.05.06 6:48) [10]

А самое главное где?

Style = lbOwnerDrawVariable


 
MsGuns ©   (2006-05-26 09:58) [12]

>antonn ©   (26.05.06 06:48) [10]

Стильно ;))



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

Текущий архив: 2006.06.11;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.033 c
2-1147024647
parovoZZ
2006-05-07 21:57
2006.06.11
Форма авторизации


3-1144416948
Petrovski
2006-04-07 17:35
2006.06.11
Как установить CommandTimeout в ADOStoredProc?


1-1146653836
MetalFan
2006-05-03 14:57
2006.06.11
торможу с RichEdit %)


3-1145365336
ttt_111
2006-04-18 17:02
2006.06.11
Поиск как в 1С.


15-1147289111
_silver
2006-05-10 23:25
2006.06.11
Belgorod Mastak Party