Tad писал(а):
Только ту, что определена во встренном листе, да и то нужно программисту помнить её индекс в этом самом списке
...
StrList с параметрами должен быть внешним или должна быть точка у компонента, в обход встроенного List
Че-че! А верхняя точка Parametrs или ARG(Parametrs, Index) ни о чем не говорит
Tad писал(а):
попробуй применить в деле MultiSetParamУже применил у себя, заместо того блока, что выкладывал. Пекрасно справился со своей целью
------------ Дoбавленo в 15.15:
Tad, а что IndexToChanel не подходит для управления doBringToFront
procedure THIIndexToChanel._work_doEvent;
var ind:integer;
begin
ind := ReadInteger(_Data,_data_Index);
_Data := ReadData(_Data,_data_Data,@_prop_Data);
if(ind >= 0)and(ind < FCount) then
_hi_CreateEvent_(_Data,@onEvent[ind]);
end;
Это разве не похоже на твой код
procedure THISwitchPages._work_doSelect1; // для doBringToFront
var i:integer;
begin
i:= ReadInteger(_data,_data_Data,0);
if(i >= 0)and(i< FOutCount) then
_hi_onEvent(onSelect[i]);
end;
А вот прямое управление выходами строкой параметров, это интересно и можно добавить
Поиск
Друзья
Администрация