1 шаг – Создайте новый проект в Delphi
2 шаг – Cоздайте новые формы для многоформенного приложения File à New -> Form.
3 шаг – сохранить проект в новой папке File – Save Project As.
4 шаг – если множество форм вами было создано - правильно выберите компоненты – измените их форму, свойства, пропишите события. Для этого мы выбираем в палитре компонентов нужные элементы, а именно на 1 форме размещаем кнопки Button1 и Button2, на 2 форме размещаем компоненты из «Примера 1. Использование компонента TWebBrowser. Базовые операции» темы «Компонент WebBrowser. Разработка веб-обозревателя»
5 шаг – после размещения всех компонентов на форме необходимо придать каждой кнопке функциональность. Как это сделать? Мы ведь уже научились выделять компоненты в Tree View и теперь нам нужно обратиться к Object Inspector. Еще раз обратите внимание, что в Object Inspector есть вкладка Properties (Свойства) и вкладка Events (События) – мы их уже знаем и изменяли. После того как выделен компонент - Button1 нужно щелкнуть в закладке events выбрать строку OnClick. Здесь в процедуре между строками Begin / End описывается код программы. Вы еще не забыли о том, что мы создали несколько форм? Так вот, сейчас мы напишем короткую программу, которая открывает другую форму. Пишем – Form2.Sho w; между begin и end; Запускаем программу, нажимаем на кнопке Button 1 и видим открываемую вторую форму. Вот как может выглядеть ваш первый проект.
Пример 3. Когда ваш сайт готов, и вы объединяете ваш проект, написанный на языке программирования необходимо учесть следующее. В единой папке должен содержаться проект электронного учебника, написанный на Delphi и сам сайт, размещаемый, например, в папке data. Для чего это делается? При переносе проекта на сторонний компьютер, путь к сайту который запрашивает программа - изменяется, в связи с особенностью ОС Windows, которая заключается в абсолютной и относительной адресации. Относительный адрес – это полный путь к папке на компьютере пользователя, выглядящий следующим образом «C:\Documents and Settings\ Admin \Рабочий стол\Имя папки» и этот адрес может быть другой.
Как сделать так чтобы ваш проект переносился без проблем? Посмотрите на картинку, и скажите, какова ее структура? Что вы можете сказать об этом проекте? Ответ – четкая организация структуры пособия.
Примечание. При написании кода программы в событиях прочих компонентов, роль которых заключается в намеренных действиях для открытия страницы в TWebBrowser желательно использование абсолютной адресации, т.е. отброса той части адреса, который не относится к папке с проектом. Так программа будет опрашивать уже не полный адрес к файлу («C:\Documents and Settings\Admin\Рабочий стол\Имя папки\index.html»), а короткий («Имя папки\index.html») при условии нахождения скомпилированного проекта в «Имя папки».
procedure ….
Var
path:string;
begin
form2.show;
path:=extractfilepatch(application.exename);
webbrowser1.navigate (path + ‘имя папки/index.htm’);
end;