TAdoQuery

[LAngel]

Да, забыл... MyT нужно объявить где-нить...

Код: Выделить всё

  TForm1 = class(TForm)
    ...
  private
    { Private declarations }
    MyT: TMyThread;
  end;

[ChPuK]

я так и понял

[ChPuK]

все классно работает...
НО
странная вещь

у меня идел логирование в обычном TListBox и в зависимости от значений второго списка ячейки 1 списка окрашиваються 2 цветами - ошибки и просто логи
ну так вот, после того как я применил TThread у меня прорисовка списков погнала...

почему это может быть?

[LAngel]

Добавление в список идет из потока?
Может быть вызывать перерисовку вручную...

[ChPuK]

добавление в список идет из запускаемой процедуры

перерисовка идет при обычном событии onDrawItem

что делать...
цвета обязательны

и перерисовку тогда тоже в процедуру вносить?
как же нехотелось этим грузить....

[LAngel]

попробуй заключить добавление в "скобки" update

Код: Выделить всё

   ListBox1.Items.BeginUpdate;
   ListBox1.Items.Add('');
   ListBox1.Items.EndUpdate;

Если не получится, то все-таки, после добаления нужно будет делать ListBox1.Refresh

[ChPuK]

попробовал сделать с Update
тоже самое....

рефрешь... вот думаю....

вставлять рейшерь после вставки строки?

[Eugie]

ну так вот, после того как я применил TThread у меня прорисовка списков погнала...
почему это может быть?

Когда работаешь с формой из вторичного потока, нужно применять синхронизацию. Например:

Код: Выделить всё

procedure TMyThread.Execute;
begin
  ...
  Synchronize(ListBox1.Items.Add(str));
  ...
end;

Почитай также топик Using the main VCL/CLX thread в Delphi Help.

[ChPuK]

да, но если это добавление идет в потоке кнутри исполняемой процедуры, которую уже использует Thread
тогда что делать

[LAngel]

почти тоже самое забыл я про неё совсем
MyT.Synchronize();