Пишу в Delphi 2010.
Есть TVirtualStringTree
.
Есть класс TExample
, порожденный от TList<T>
, где данные TVirtualStringTree
и хранятся.
Так же TExample
описанно событие OnNotify
, чтоб дерево показывало данные.
procedure TExample.OnNotifyTaskCommList(Sender: TObject;
const Item: PRecord; Action: TCollectionNotification);
begin
if Assigned(FVST) then
FVST.RootNodeCount := self.Count; // в лоб
//TDoMainThread.Create(ChangeNodeCount).Start; // Версия №1
//SendMessage(FormHandle, MESS_1, WPARAM(AControl), self.Count); // Версия №2
end;
Но дело в том, что с TExample
работает поток.
Т.к. TExample
не VCL, то и Synchronize
я не делаю в том потоке.
НО!
Ведь в событии дергается свойство VCL компонента.
Понимаю, что надо обойти это, но не хочется вешать Synchronize
на процедуру добавления, удаления записи. Всего то надо изменить кол-во нод.
Появились идеи:
1) использовать дополнительный класс от TThread
с пустым Execute
.
Типо такого:
constructor TDoMainThread.Create(Event: TNotifyEvent);
begin
inherited Create(True);
FreeOnTerminate := true;
Priority := tplowest;
Synchronize(self, procedure begin
Event(self);
end);
end;
где Event
- это процедура изменения нод. И только она выполнится в главном потоке.
2) использовать сообщения, но для этого классу надо будет еще передать и хэндл формы, и номер сообщения. Прям под зависимость попадаем.
Как лучше исполнить этот обход?