|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.06.2010, 21:47 | #1 |
Пользователь
Регистрация: 25.01.2009
Сообщений: 47
|
PascalABC.NET, windows.forms
Вобщем мне нужно составить программу-тест на PascalABC.NET. Для внешней оболочки программы я использовал библиотеку system.windows.forms... Внешне тест выглядит так: Сама форма (Form), поле для текста (Label), 4 переключателя-варианты ответа (RadioButton) и простая кнопка (Button). Так как плохо знаю эту библеотеку, то у меня возникли проблемы. Как сделать, чтобы при нажатии на кнопку (Button), текст на лэйбле и на переключателях сменялся? (Пробовал через if-then-else, но что то он не хочет работать). Заранее благодарен.
P.S. Есть какой-нибудь русскоязычный хороший сайт с описанием system.windows.forms? Вот код формы: #apptype windows #reference 'System.Windows.Forms.dll' uses system, System.Windows.Forms; var MyForm: System.Windows.Forms.Form; But: Button; Lab: System.Windows.Forms.Label; Rad1: System.Windows.Forms.RadioButton; Rad2: System.Windows.Forms.RadioButton; Rad3: System.Windows.Forms.RadioButton; Rad4: System.Windows.Forms.RadioButton; begin begin MyForm := System.Windows.Forms.Form.Create; MyForm.text := 'Форма'; MyForm.Height := 400; MyForm.Width := 600; But := new Button; But.Text := 'Далее'; But.Width:=100; But.Left := 450; But.Top := 300; MyForm.Controls.Add(But); Lab:=System.Windows.Forms.Label.Cre ate; Lab.text:='111111111111111111111111 11111111111111111111111111111111111 11111111'; Lab.Left:=50; Lab.Top:=20; Lab.Width:=500; Lab.Height:=50; MyForm.Controls.Add(Lab); Rad1:=System.Windows.Forms.RadioBut ton.Create; Rad1.Width:=200; Rad1.Text:='1 ответ//////////////////'; Rad1.Left:=100; Rad1.Top:=70; MyForm.Controls.Add(Rad1); Rad2:=System.Windows.Forms.RadioBut ton.Create; Rad2.Width:=200; Rad2.Text:='1 ответ//////////////////'; Rad2.Left:=100; Rad2.Top:=100; MyForm.Controls.Add(Rad2); Rad3:=System.Windows.Forms.RadioBut ton.Create; Rad3.Width:=200; Rad3.Text:='1 ответ//////////////////'; Rad3.Left:=100; Rad3.Top:=130; MyForm.Controls.Add(Rad3); Rad4:=System.Windows.Forms.RadioBut ton.Create; Rad4.Width:=200; Rad4.Text:='1 ответ//////////////////'; Rad4.Left:=100; Rad4.Top:=160; MyForm.Controls.Add(Rad4); Application.Run(MyForm); end; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создание теста на PascalABC.NET | *stRong* | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 03.06.2010 19:41 |
Графика PascalABC.NET | Ученик. | Помощь студентам | 6 | 04.02.2010 15:24 |