ArrayOfCB := NewList;[/code]

Заполняю флажками видимую часть, если там есть строки.


if TableCtl.LVCount < TableCtl.LVPerPage then
while ArrayOfCB.Count < TableCtl.LVCount do
     begin
      r := TableCtl.LVItemRect(TableCtl.LVTopItem + ArrayOfCB.Count, lvipBounds);
      ArrayOfCB.Add(NewCheckbox(TableCtl,'));
      PControl(ArrayOfCB.Items[ArrayOfCB.Count-1]).Style := PControl(ArrayOfCB.Items[ArrayOfCB.Count-1]).Style or BS_FLAT;
      PControl(ArrayOfCB.Items[ArrayOfCB.Count-1]).width := 13;
      PControl(ArrayOfCB.Items[ArrayOfCB.Count-1]).height := 13;
      PControl(ArrayOfCB.Items[ArrayOfCB.Count-1]).left := TableCtl.LVColWidth[0] + (TableCtl.LVColWidth[1] div 2) - 7;
      PControl(ArrayOfCB.Items[ArrayOfCB.Count-1]).top := r.top;
      PControl(ArrayOfCB.Items[ArrayOfCB.Count-1]).Show;
     end;

Это происходит в обработчике  OnLVCustomDraw.
В этом же обработчике выполнятся:


while (ArrayOfCB.Count > 0) and (ArrayOfCB.Count > TableCtl.LVCount) do
    begin
     
     PControl(ArrayOfCB.Items[ArrayOfCB.Count-1]).Free;
     ArrayOfCB.Delete(ArrayOfCB.Count-1);
    end;
Но когда нажимаю Очистить таблицу, тогда возникает runtime error.

destructor THiAsmClass.Destroy;
var i:integer;
begin
 for i:=0 to ArrayOfCB.Count do PControl(ArrayOfCB.Items[i]).Free;
 ArrayOfCB.Free;
 inherited Destroy;
end;

TableCtl.OnLVCustomDraw := nil;[/code]
Это значит, что обработчика отрисовки больше нет. То есть, когда первый раз запускается обработчик, больше запуститься он уже не может.

А в конце обработчика я пишу:
TableCtl.OnLVCustomDraw := TableRePaint;[/code]

То есть назначаю тот же самы обработчик отрисовки вновь.
Таким образом, пока не закончатся все циклы в обработчике, вновь запущен он не будет.

[size=-2]------ Добавлено в 07:59 [/size]
Спасибо всем, кто мне помогал