Вверх ↑
Этот топик читают: Гость
Этот топик был перемещен из раздела "Помощь по среде"
Ответов: 70
Рейтинг: 1
#1: 2019-08-20 01:40:46 ЛС | профиль | цитата
Здравствуйте.
Никак не удается у формы реализовать подтверждение закрытия. Вешаю MsgBox "OnClose" срабатывает, но толку с этого мало... Очень надеюсь на подсказку, где я не прав.


Make(delphi)
ver(4.05 build 186)
Add(MainForm,2953706,371,385)
{
Point(Close)
Point(onClose)
link(Close,13024220:Result,[(377,344)(686,344)(686,472)(587,472)])
link(onClose,6846524:doMessage,[])
}
Add(Message,6846524,497,406)
{
Type=1
link(onMessage,13024220:doOperation,[])
}
Add(Math,13024220,581,406)
{
OpType=1
Op2=1
ResultType=0
}

карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 263
Рейтинг: 18
#2: 2019-08-20 06:13:17 ЛС | профиль | цитата
Вот простейший пример.

Add(MainForm,1918048,189,168)
{
Point(Close)
Point(onClose)
link(Close,10248326:GetData,[])
}
Add(Message,6846524,238,112)
{
Type=1
Point(onOK)
Point(onCANCEL)
link(onOK,9251586:doWork1,[])
link(onCANCEL,9251586:doWork2,[])
}
Add(EventFromData,10248326,189,112)
{
link(onEvent,6846524:doMessage,[])
}
Add(ChanelToIndex,9251586,294,119)
{
link(onIndex,10248326:doData,[(339,125)(339,94)(177,94)(177,118)])
}
карма: 3

0
2
Сообщение
...
Прикрепленные файлы
(файлы не залиты)