178.124.151.215 писал(а):
ниполучается чтобы работалоЕсть много способов для решения одной задачи.Простые и сложные, лучшие и худшие, но чтобы их найти надо выучить возможности элементов.
Вот для начала не лучший способ, но на обычных понятных компонентах.

Прежний пример удалил, вот чуть подправил.
Add(MainForm,2953706,343,161)
{
Width=562
Height=462
Position=1
Point(onResize)
Point(Width)
Point(Height)
link(onResize,7989666:doEvent1,[(387,188)(387,226)(296,226)(296,265)])
}
Add(DoData,1664219,343,238)
{
link(onEventData,3303967:doOperation,[])
link(Data,2953706:Width,[])
}
Add(Math,3303967,392,238)
{
OpType=1
Op2=5
ResultType=0
link(onResult,7327866:doWidth,[])
}
Add(WebBrowser,7327866,504,210)
{
Left=-2
Top=-2
Point(doWidth)
Point(doHeight)
}
Add(DoData,8582687,350,287)
{
link(onEventData,2693915:doOperation,[])
link(Data,2953706:Height,[])
}
Add(Math,2693915,392,287)
{
OpType=1
Op2=1
ResultType=0
link(onResult,7327866:doHeight,[(467,293)(467,251)])
}
Add(Hub,7989666,308,259)
{
link(onEvent1,1664219:doData,[(329,265)(329,244)])
link(onEvent2,8582687:doData,[(336,272)(336,293)])
}