/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/Controls/cc22_MsgBox.pas
19 строк
741 B
Mikhalkovich Stanislav
Controls - примеры
01 авг 2020, 00:13
01 авг 2020, 00:13
a4804f3
Код
Авторство
О чём код?
// Модуль Controls - MessageBox uses GraphWPF,Controls; begin Window.Title := 'Модуль Controls - MessageBox'; LeftPanel(150, Colors.Orange); Button('MsgBoxOK').Click := () -> MessageBox.Show('Сообщение','Заголовок'); Button('MsgBoxYesNo').Click := () -> begin if MessageBox.Show('Сообщение','Заголовок',MessageBoxButton.YesNo) = MessageBoxResult.Yes then Print('Yes') else Print('No'); end; Button('MsgBoxWithQuestion').Click := () -> begin if MessageBox.Show('Вы уверены?','Заголовок',MessageBoxButton.YesNo,MessageBoxImage.Question) = MessageBoxResult.Yes then Print('Уверен') else Print('Нет'); end; end.