В ListBox есть свойство ItemIndex. И в ComboBox есть. А в CheckListBox нет. А очень не хватает. Хочется определить не только поCheckаные записи, но выделенную.
В ListBox есть свойство ItemIndex. И в ComboBox есть. А в CheckListBox нет. А очень не хватает. Хочется определить не только поCheckаные записи, но выделенную.
Как это нету??? специально посмотрел, все есть.
1. Кидаю на форму CheckListBox1(TCheckListBox) и Label1 (TLabel).
2. В обработчике CheckListBox1.OnClick пишу:
procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
Label1.Caption := 'Выделен: '+IntToStr(TCheckListBox(Sender).ItemIndex)
end;
Комментарии
1. Кидаю на форму CheckListBox1(TCheckListBox) и Label1 (TLabel).
2. В обработчике CheckListBox1.OnClick пишу:
procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
Label1.Caption := 'Выделен: '+IntToStr(TCheckListBox(Sender).ItemIndex)
end;
Всё замечательно работает.
Может ты что то другое имел ввиду?
З.Ы.: Смотрел в Delphi 6
Попробуй все тоже самое, но непосредственно в отчете. Типа такого: А потом, для верности, загляни в исходники.