/
n-dimens
/
pascalabcnet
Обзор
Документация
Войти
/
n-dimens
/
pascalabcnet
Код
Запросы
0
Задачи
Вики
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
InstallerSamples/Graphics/Controls/cc4_ButtonClick.pas
19 строк
586 B
Mikhalkovich Stanislav
Controls - примеры
01 авг 2020, 00:13
01 авг 2020, 00:13
a4804f3
Код
Авторство
О чём код?
// Модуль Controls - кнопки и их обработчики uses GraphWPF,Controls; begin Window.Title := 'Модуль Controls - кнопки и их обработчики'; var p := LeftPanel; p.Color := Colors.Orange; Button('Случайный цвет').Click := () -> begin Window.Clear(RandomColor); end; var b2 := Button('Плюс'); b2.Click := procedure -> if b2.Text = 'Плюс' then b2.Text := 'Минус' else b2.Text := 'Плюс'; var b1 := Button('Закрыть окно'); b1.Click := procedure -> Window.Close; end.