Вверх ↑
Этот топик читают: Гость
Ответов: 113
Рейтинг: 15
#1: 2013-10-10 12:29:38 ЛС | профиль | цитата
Есть ли механизм что бы при нажатии кнопки закрыть (крестик в правом верхнем углу)дочерней формы вылетал запрос о закрытии?
карма: 0
Ученик
0
Ответов: 1536
Рейтинг: 176
#2: 2013-10-10 12:42:49 ЛС | профиль | цитата
code_31982.txt
------------ Дoбавленo в 12.42:
С дочерней формой
Add(MainForm,2953706,168,168)
{
Point(Close)
link(Close,13108064:GetData,[])
}
Add(Message,690829,217,105)
{
Message="Реально хотите закрыть прогу?"
Type=2
Point(onYES)
Point(onNO)
link(onYES,4792948:doWork1,[])
link(onNO,4792948:doWork2,[])
}
Add(EventFromData,13108064,168,105)
{
link(onEvent,690829:doMessage,[])
}
Add(ChanelToIndex,4792948,266,112)
{
link(onIndex,13108064:doData,[(308,118)(308,92)(156,92)(156,111)])
}
Add(ChildForm,14240037,266,168)
{
}
BEGIN_SDK
Add(EditMulti,16342170,21,21)
{
}
Add(MainForm,3975467,35,105)
{
Left=35
Top=105
Point(Close)
link(Close,3680039:GetData,[])
}
Add(Message,10198714,84,56)
{
Message="Реально хотите закрыть дочернюю форму?"
Type=2
Point(onYES)
Point(onNO)
link(onYES,3092444:doWork1,[])
link(onNO,3092444:doWork2,[])
}
Add(EventFromData,3680039,35,56)
{
link(onEvent,10198714:doMessage,[])
}
Add(ChanelToIndex,3092444,133,63)
{
link(onIndex,3680039:doData,[(175,69)(175,43)(23,43)(23,62)])
}
END_SDK
карма: 1
Не так страшна ошибка, как опасность её не заметить.

1
файлы: 1code_31982.txt [462B] [133]
Голосовали:DataEntry
Ответов: 113
Рейтинг: 15
#3: 2013-10-10 15:41:15 ЛС | профиль | цитата
ser_davkin писал(а):
code_31982.txt
------------ Дoбавленo в 12.42:
С дочерней формой
код



Спасибо!
карма: 0
Ученик
0
3
Сообщение
...
Прикрепленные файлы
(файлы не залиты)