Вверх ↑
Ответов: 2236
Рейтинг: 676
#1: 2024-07-04 15:16:09 ЛС | профиль | цитата
nesco писал(а):
Неплохо бы все же глянуть на схемку.

Вот к примеру такая схема у меня "блокирует" модальную дочернюю форму:
Add(MainForm,2953706,42,182)
{
Width=815
Height=655
Caption="test 1"
WindowsState=2
Point(Close)
}
Add(MTStrTbl,5800875,112,182)
{
Left=60
Top=120
Width=365
Height=240
Font=[MS Sans Serif,12,0,0,1]
Name="Table1"
Layout="ver_Table"
HeightScale=100
Columns=#7:1=54==2|7:2=50==2|5:3=400|5:4=100|5:5=120|5:6=120|7:7=90==2|3:8=0|
Grid=0
MultiSelect=0
Point(onMouseDown)
Point(doVisible)
link(onMouseDown,10963487:doEvent,[])
}
Add(IndexToChanel,10963487,154,210)
{
link(onEvent2,3533485:doEvent1,[])
}
Add(ArrayRW,6195194,280,210)
{
link(Array,7054046:Array,[])
}
Add(DoData,10226319,238,224)
{
Data=String(Добавить)
link(onEventData,6195194:doAdd,[])
AddHint(-25,51,75,13,Data)
}
Add(Hub,3533485,196,217)
{
OutCount=3
link(onEvent1,7054046:doClear,[(225,223)(225,174)])
link(onEvent2,10226319:doData,[])
link(onEvent3,7054046:doPopupHere,[(218,237)(218,167)])
}
Add(PopupMenuEx,7054046,273,161)
{
Font=[MS Sans Serif,12,0,0,1]
Bitmaps=[]
Point(Array)
link(MenuItemIdx,2300527:doShow,[])
}
Add(ChildFormEx,2300527,392,161)
{
}
BEGIN_SDK
Add(EditMultiEx,6167279,21,21)
{
WorkCount=#6:doShow|
Width=503
Height=557
link(doShow,3451375:doShowModal,[(119,27)(119,90)])
}
Add(MainForm,3451375,217,56)
{
Left=35
Top=105
Width=981
Height=727
Visible=1
Caption="test 2"
Position=1
Point(doShowModal)
}
Add(Button,14999685,266,504)
{
Left=250
Top=540
Width=110
Height=35
Font=[MS Sans Serif,12,0,0,1]
TabOrder=9
Layout="gor_buttons"
Caption="Отмена"
link(onClick,6311228:In,[(298,510)])
}
Add(HBoxLayout,16029822,308,427)
{
Name="gor_buttons"
Space=30
Padding=10
Layout="ver"
}
Add(LayoutSpacer,11853030,350,427)
{
Left=530
Top=540
Layout="gor_buttons"
WidthScale=50
}
Add(LayoutSpacer,8885556,266,427)
{
Left=130
Top=540
Layout="gor_buttons"
WidthScale=50
}
Add(VBoxLayout,13052431,308,378)
{
Name="ver"
}
Add(MTStrTbl,4197214,217,182)
{
Left=190
Top=65
Width=455
Height=140
Font=[MS Sans Serif,12,0,0,1]
Name="Table2"
Layout="ver"
Columns=#7:1=54==2|7:2=50==2|5:3=400|5:4=100|5:5=120|5:6=120|7:7=90==2|3:8=0|
Grid=0
Point(onMouseDown)
}
Add(LineBreak,11625429,168,77)
{
Caption="close"
link(Out,3451375:doClose,[])
Primary=[6311228,196,427]
}
END_SDK
Проверить: правой кнопкой мыши нажать на таблицу, выбрать "Добавить", в появившемся окне будут не активны все кнопки (включая верхний правый угол), пока не перейти к программе по Alt+Tab.

При этом штатный пример с дочерней модальной формой работает без проблем: HiAsm\Elements\delphi\Example\Forms\Forms.sha

HiAsm штатный rev 2407 win10 64
карма: 11

0
Редактировалось 1 раз(а), последний 2024-07-04 15:16:34