Dilma писал(а):
Т.е. примерно такая схема получитсяЯ так и подумал, что через GlobalVar.
Dilma, а нельзя ли предусмотреть задержку перед выполнением каждой дочерней схемы и событие окончания перебора, потому, что в стандартной схеме это реализовать можно.
Если я правильно понял, то перебор осуществляется здесь, значит как-то вот так
#pas
procedure THIPolymorphMulti.doWork;
var i:integer;
dt:TData;
begin
for i := 0 to FChilds.Count-1 do
begin
sleep(_prop_Delay);
dt := Data;
_hi_onEvent(THiPoliEdit(FChilds.Items[i]).Works[Index], dt);
end;
_hi_onEvent(_event_onEndWork);
end;
------------ Дoбавленo:
Да, еще один момент -- при попытке сделать копию ссылки на на Polymorph (по Ctrl-V) вылетает ошибка и блокирует дальнейшую работу. Если это дело не предусмотрено, то надо бы заблокировать.
Поиск
Друзья
Администрация