![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() как пронумеровать строки в listbox в delphi если уже данные в нем есть
![]() |
#2
|
||||
|
||||
![]() ListBox1.Style:=lbOwnerDrawVariable; или какй другой OwnerDraw
Код:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); var tmp:string; begin tmp:=IntToStr(Index+1)+' '+ListBox1.Items.Strings[Index]; ListBox1.Canvas.TextOut(Rect.Left,Rect.Top,tmp); end; |
#3
|
||||
|
||||
![]() В ListBox-е имется возможность сделать несколько колонок, в первую вносим номера, во-вторую данные (правда несколько геморойно). Но удобнее использовать ListView.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#4
|
|||
|
|||
![]() Цитата:
|
#5
|
||||
|
||||
![]() В событие OnDrawItem ListBox'а. Выбираешь ListBox, в ObjectInspector'е на вкладке Events дважды кликаешь по строке OnDrawItem
![]() |
#6
|
|||
|
|||
![]() мне помог вот этот код
PHP код:
|
#7
|
||||
|
||||
![]() Ты уж выбирай или
Цитата:
По нескольким топикам вижу, не можешь правильно сформулировать вопрос и разводишь из-за этого волынку. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |