|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
В listbox пол-ся, а почему в checklistbox нет? подскажите
Код:
procedure TForm3.Button1Click(Sender: TObject); begin If ListBox1.Count=6 then Showmessage('максимум 6!!!') else begin ListBox1.Items[ListBox1.Items.Count]:=Edit1.Text; Edit1.Text:=''; Edit1.SetFocus; end; end; Код:
procedure TForm3.Button3Click(Sender: TObject); begin If CheckListBox1.Items.Count=6 then Showmessage('Максимум 6 вариантов!!!') else begin CheckListBox1.Items[CheckListBox1.Count]:=Edit1.Text; Edit4.Text:=''; Edit4.SetFocus; end; end; Помогите пожалуйста люди добрые, из-за такой херни курсач накрывается!!! Последний раз редактировалось Admin, 11.05.2011 в 22:19. |
#2
|
||||
|
||||
Используй метод Add.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
||||
|
||||
Или append
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#4
|
||||
|
||||
Ну и обращаться нужно к элементу массива который существует:
ListBox1.Items[ListBox1.Items.Count-1] Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |