Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Делфи _ Построение виртуального списка...

Автор: Vardes 16.02.2007 14:22

Есть событие OnData в компоненте TListBox...Не могу разобраться с одним из пар-ов обработчика этого события...
Там есть список типа TwinControl...Так вот к Вам вопрос, его просто надо объявить или что?

Код

var
spisok:Twincontrol;
ListBox1:TlistBox;
S:string;
....
S:='OK';
ListBox1.Ondata(Spisok,1,S);

В список строка не добавляется...выдаётся ошибка...

Автор: volvo 16.02.2007 14:49

Не надо ничего добавлять...

Смотри:

procedure TForm1.ListBox1Data(Control: TWinControl; Index: Integer;
  var Data: String);
begin
  Data := 'this is a string #' + inttostr(index);
end;


Не забывай при создании формы:
procedure TForm1.FormCreate(Sender: TObject);
begin
  listbox1.Style := lbVirtual; // Это - обязательно ...
  listbox1.Count := 100; // Сколько строк ты хочешь инициализировать
end;
Все, теперь при создании формы в ListBox длбавится 100 строк, сгенерированных так, как показано в OnData...