Не хватает ItemIndex

Stranger

В ListBox есть свойство ItemIndex. И в ComboBox есть. А в CheckListBox нет. А очень не хватает. Хочется определить не только поCheckаные записи, но выделенную.

SlasherX

Stranger написал:

В 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;

Всё замечательно работает.

Может ты что то другое имел ввиду?

З.Ы.: Смотрел в Delphi 6

Stranger

А может ты невнимательно читал? Это тема по фастрепорту, третьему, а не по дельфе

Попробуй все тоже самое, но непосредственно в отчете. Типа такого:

procedure CheckListBox1OnClick(Sender: TfrxComponent);
begin
  Label1.Caption := IntToStr(TfrxCheckListBoxControl(Sender).ItemIndex);
end;

А потом, для верности, загляни в исходники.