Инструменты пользователя
zn:простое_окно_.net
Различия
Показаны различия между двумя версиями страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
zn:простое_окно_.net [2016/09/06 10:40] prospero78 [Просто окно (.Net)] |
— (текущий) | ||
|---|---|---|---|
| Строка 1: | Строка 1: | ||
| - | =====Простое окно (.Net)===== | ||
| - | Пример несколько изменён, | ||
| - | |||
| - | <code oberon2> | ||
| - | module Main; | ||
| - | import System, | ||
| - | System.Windows.Forms as Формы; | ||
| - | |||
| - | type {public, ref} | ||
| - | тФормаГлав = object implements Формы.Form | ||
| - | var {public} | ||
| - | кнпВыход : Формы.Button; | ||
| - | |||
| - | procedure {public} актВыход ( отправ_: | ||
| - | begin | ||
| - | Формы.Application.Exit; | ||
| - | end актВыход ; | ||
| - | |||
| - | procedure Добавить_кнпВыход; | ||
| - | begin | ||
| - | кнпВыход := new Формы.Button; | ||
| - | кнпВыход .Text := " | ||
| - | кнпВыход .Left := Width - кнпВыход .Width - 50; | ||
| - | кнпВыход .Top := Height - кнпВыход .Height - 50; | ||
| - | кнпВыход .add_Click(актВыход); | ||
| - | end Добавить_кнпВыход; | ||
| - | |||
| - | begin | ||
| - | Text := " | ||
| - | Width := 420; | ||
| - | Height := 240; | ||
| - | Добавить_кнпВыход; | ||
| - | Controls.Add(кнпВыход ); | ||
| - | Update; | ||
| - | CenterToScreen; | ||
| - | end тФормаГлав; | ||
| - | |||
| - | |||
| - | var | ||
| - | фрмГлавная: | ||
| - | begin | ||
| - | фрмГлавная := new тФормаГлав; | ||
| - | Формы.Application.Run(фрмГлавная); | ||
| - | end Main. | ||
| - | </ | ||
| - | |||
| - | ====Компиляция и запуск==== | ||
zn/простое_окно_.net.1473147629.txt.gz · Последнее изменение: 2020/10/29 07:08 (внешнее изменение)
Инструменты страницы
Если не указано иное, содержимое этой вики предоставляется на условиях следующей лицензии: CC Attribution-Share Alike 4.0 International
