Маркированный список (TCheckListBox)

На рис. 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. В квадратных скобках надо указать номер интересующей строки. Например, если вы хотите проверить нулевую строку, то надо написать:

if CheckListBox1.Checked[0] then

В нашем примере перебираются все элементы, поэтому в квадратных скоб­ках указан параметр i. Текст строки можно узнать в свойстве items компо­нента CheckListBoxl. Чтобы узнать текст нулевой строки, надо написать

CheckListBoxl.Items[0]


������� ������ ��� dle ������� ��������� ������

Помоги проекту! Расскажи друзьям об этом сайте: