procedure THIPolymorphMulti.NSelect;
var i:integer;
s:string;
dt:TData;
begin
dt := Data;
s := ToString(dt);
FChild := nil;
for i := 0 to FChilds.Count - 1 do
if s = FChilds.Items[i] then
begin
FChild := THiEditPolyMulti(FChilds.Objects[i]);
_hi_OnEvent(FChild.Works[Index], dt);
end;
end;
Поиск
Друзья
Администрация