Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.06.2010, 21:47   #1
*stRong*
Пользователь
 
Регистрация: 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.
*stRong* вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создание теста на PascalABC.NET *stRong* Паскаль, Turbo Pascal, PascalABC.NET 1 03.06.2010 19:41
Графика PascalABC.NET Ученик. Помощь студентам 6 04.02.2010 15:24