ПоказатьДиалог()
Тип: РезультатДиалога (DialogResult).
Показывает форму как модальное диалоговое окно.
Форма2.ПоказатьДиалог();
Копировать Выделить всёПерем Ф, Форма2; Процедура Кнопка1_Нажатие() Экспорт Сообщить("Форма2.РезультатДиалога = " + Форма2.РезультатДиалога); КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт Сообщить("Форма2.РезультатДиалога = " + Форма2.РезультатДиалога); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll"); Ф = Новый ФормыДляОдноСкрипта(); Форма1 = Ф.Форма(); Форма1.Текст = "Форма примеров"; Форма1.Ширина = 400; Форма1.Высота = 300; Форма1.Отображать = Истина; Форма1.Показать(); Форма1.Активизировать(); Форма2 = Ф.Форма(); Форма2.Текст = "Диалоговая форма"; Форма2.Ширина = 300; Форма2.Высота = 100; Кнопка1 = Ф.Кнопка(); Кнопка1.Родитель = Форма2; Кнопка1.Текст = "Да"; Кнопка1.Нажатие = Ф.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка1.Положение = Ф.Точка(30, 30); Кнопка1.РезультатДиалога = Ф.РезультатДиалога.Да; Кнопка2 = Ф.Кнопка(); Кнопка2.Родитель = Форма2; Кнопка2.Текст = "Нет"; Кнопка2.Нажатие = Ф.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка2.Правее(Кнопка1, 10); Кнопка2.РезультатДиалога = Ф.РезультатДиалога.Нет; Форма2.ПоказатьДиалог(); Ф.ЗапуститьОбработкуСобытий();
Копировать Выделить всёПерем Ф, Форма2; Процедура Кнопка1_Нажатие() Экспорт Сообщить("Форма2.РезультатДиалога = " + Форма2.РезультатДиалога); КонецПроцедуры Процедура Кнопка2_Нажатие() Экспорт Сообщить("Форма2.РезультатДиалога = " + Форма2.РезультатДиалога); КонецПроцедуры ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll"); Ф = Новый ФормыДляОдноСкрипта(); Форма1 = Ф.Форма(); Форма1.Текст = "Форма примеров"; Форма1.Ширина = 400; Форма1.Высота = 300; Форма1.Отображать = Истина; Форма1.Показать(); Форма1.Активизировать(); Форма2 = Ф.Форма(); Форма2.Текст = "Диалоговая форма"; Форма2.Ширина = 300; Форма2.Высота = 100; Кнопка1 = Ф.Кнопка(); Кнопка1.Родитель = Форма2; Кнопка1.Текст = "Да"; Кнопка1.Нажатие = Ф.Действие(ЭтотОбъект, "Кнопка1_Нажатие"); Кнопка1.Положение = Ф.Точка(30, 30); Кнопка1.РезультатДиалога = Ф.РезультатДиалога.Да; Кнопка2 = Ф.Кнопка(); Кнопка2.Родитель = Форма2; Кнопка2.Текст = "Нет"; Кнопка2.Нажатие = Ф.Действие(ЭтотОбъект, "Кнопка2_Нажатие"); Кнопка2.Правее(Кнопка1, 10); Кнопка2.РезультатДиалога = Ф.РезультатДиалога.Нет; // Форма2.ПоказатьДиалог(); Сообщить(?( Истина , "", "!!! ") + "Форма.ПоказатьДиалог (Form.ShowDialog) Метод" + " " + ТекущаяДата());