На рис. 11.19 вы можете видеть еще и кнопку ОК. Добавьте ее на свою форму. По нажатии этой кнопки мы будем проверять, какие элементы выделил пользователь, и сообщать об этом. Создайте обработчик событияonclickдля кнопки и напишите там следующий код:
procedure TFormi.OKButtonclick(Sender: TObj ect); var i:Integer;
Str:String; begin
Str : = 'Вы выбрали' ;
for i:=0 to CheckListBoxl.Items.Count-1 do 11 запуск цикла if CheckListBoxl.Checked then //Если i-й элемент выделен ...
Str:=Str+CheckListBoxl.Items+' '; //Добавить в Str текст элемента
// Вывести на экран результат
Application.MessageBox(PChar(Str), 'Внимание!!!'); end;
Теперь можете запустить приложение и посмотреть на результат работы. Выделите несколько элементов и нажмите кнопку ОК. Вы должны увидеть окно, в котором перечислены все выделенные элементы.
Теперь разберемся, что же происходит по нажатии заветной кнопки ОК. Сначала объявляются две переменные— целое число i и строка str. В первой строке кода мы присваиваем строке str текст "Вы выбрали". После этого запускается цикл, в котором проверяются все элементы. Если i-й элемент выделен, то добавляем текст строки к переменной str.
Чтобы узнать, выделена ли какая-то строка, надо проверить свойство checked компонента CheckListBoxl. В квадратных скобках надо указать номер интересующей строки. Например, если вы хотите проверить нулевую строку, то надо написать:
В нашем примере перебираются все элементы, поэтому в квадратных скобках указан параметр i. Текст строки можно узнать в свойстве items компонента CheckListBoxl. Чтобы узнать текст нулевой строки, надо написать