Вверх ↑
Ответов: 95
Рейтинг: 4
#1: 2022-01-20 12:00:04 ЛС | профиль | цитата
nesco, кажется я понял в чём проблема. Сам метод-то работает, однако, если его вызывать из ChildFormEx со включенным OnlyOnce или Dynamic, прилетает Runtime error.
Схема:
Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,21,105)
{
Point(doGetIcon)
Point(onGetIcon)
link(onGetIcon,14116886:doGotIcon,[(125,132)(125,174)])
}
Add(Button,4960337,154,98)
{
Left=250
Top=15
link(onClick,14116886:doShow,[(191,104)(191,167)])
}
Add(ChildFormEx,14116886,196,161)
{
Mode=2
link(onGetIcon,2953706:doGetIcon,[(240,167)(240,153)(9,153)(9,139)])
}
BEGIN_SDK
Add(EditMultiEx,2578549,21,21)
{
WorkCount=#6:doShow|9:doGotIcon|
EventCount=#9:onGetIcon|
link(doShow,2540826:doShowModal,[(59,27)(59,111)])
link(doGotIcon,7508866:doEvent1,[(63,34)(63,139)])
}
Add(MainForm,2540826,98,77)
{
Left=35
Top=105
Visible=1
Point(doShowModal)
link(onCreate,2578549:onGetIcon,[(194,97)(194,27)])
}
Add(Image,5252088,224,77)
{
Left=130
Top=50
Width=215
Height=155
}
Add(Hub,7508866,105,133)
{
link(onEvent1,10007018:doLoadIcon,[(140,139)(140,153)])
link(onEvent2,10007018:doBitmap,[(140,146)(140,160)])
}
Add(Icon,10007018,161,133)
{
Point(doLoadIcon)
Point(doBitmap)
Point(onBitmap)
link(onBitmap,5252088:doLoad,[(209,139)(209,83)])
}
END_SDK
(специально сделал так чтоб можно было сразу копировать в блокнот а потом сохранить в .sha )
карма: 0

0
Редактировалось 2 раз(а), последний 2022-01-20 12:02:36