Написание обработчика события для кнопки

Редактирование главной формы

1. В IDE Delphi выберите пункт меню File|Open, затем выберите файл IWUnit1.pas и нажмите OK. В IDE появится окно главной формы, названное formMain.
2. Кликните мышью по окну главной формы. В инспекторе объектов измените значение свойства Title на «Как тебя зовут?». Этот вопрос появится в строке названия Web-браузера, когда вы запустите приложение и увидите страницу, относящуюся к главной форме.
3. Разместите на форме компонент IWLabel (найти его можно на странице IW Standard палитры компонентов). В инспекторе объектов измените значение свойства Caption на «Как тебя зовут?». Этот вопрос появится на форме.
4. Разместите на форме компонент IWEdit под компонентом IWLabel. Используйте инспектор объектов для того, чтобы произвести следующие изменения:
• Удалите значение свойства Text.
• Измените значение свойства Name на «editName».
5. Разместите на форме компонент IWButton под компонентом IWEdit. Измените значение его свойства Caption на «OK».

Ваша форма должна выглядеть подобно этой:

Возможно, вы захотите сохранить все свои файлы прежде чем продолжить.

Пока в ответ на нажатие пользователем кнопки OK форма не выполняет никаких действий. Теперь мы напишем обработчик события, который выводит приветствие, когда пользователь нажимает OK.

1. Произведите по кнопке OK двойной щелчок мышью. В окне редактора кода будет создан пустой обработчик события, похожий на представленный ниже:

2. procedure TformMain.IWButton1Click(Sender: TObject);3. begin4. 5. end;

1. Используя редактор, допишите в него код так, чтобы обработчик события выглядел следующим образом:

7. procedure TformMain.IWButton1Click(Sender: TObject);8. var s: String;9. begin10. s:= editName.Text;11. if Length(s) = 0 then12. WebApplication.ShowMessage('Пожалуйста, введите своё имя! ')13. else14. begin15. WebApplication.ShowMessage('Привет, ' + s +'!');16. editName.Text:= '';17. end;18. end;

Запуск созданного приложения

Теперь мы можем запустить и протестировать созданное приложение.

1. В IDE Delphi выберите пункт меню Run|Run (F9). Появится сервер приложений IntraWeb, показанный ниже.

1. В сервере приложений IntraWeb выберите пункт меню Run|Execute (F9). Ваше Web серверное приложение появится в окне вашего Web-браузера, установленного по умолчанию. К примеру, вот результаты в окне Web-браузера Internet Explorer:

1. Допустим, вас зовут Альберт. Напечатайте Альберт в текстовом поле и нажмите кнопку OK. Появится модальное диалоговое окно:

Мы завершили процесс создания простого IntraWeb приложения, используя только формы и код на языке Delphi. Когда вы окончите работу со своим приложением, вы можете завершить его работу, закрыв окно Web-браузера, а затем закрыв сервер приложений IntraWeb.

Контрольні питання

1. Навести поняття технології InraWeb Delphi

2. Охарактеризувати принципи створення прикладного застосування за допомогою IntraWeb

САМОСТІЙНА РОБОТА СТУДЕНТА

ЗМІСТОВИЙ МОДУЛЬ 6: ПРОГРАМУВАННЯ З ГРАФАМИ. ВІЗУАЛЬНІ КОМПОНЕНТИ. БАЗИ ДАНИХ

ТЕМА 6.2: КНОПКИ

Самостійне заняття №31 – Кнопки

Дата добавления: 2014-12-25