Система автономных форм для обучения и контроля знаний Добавление форм в проект
File,
New
Form
– включить в проект новую форму.
Затем перейти в
окно редактора кода формы и File,
Save
As.
Visible – True
a)
Добавить
в
Unit1.pas
implementation
uses unit2;
{$R *.DFM}
b) Написать
процедуру
для
кнопки
procedure
TForm1.Button21Click(Sender: TObject);
begin
Form2:=TForm2.Create(Self);
Form2.Visible:=true;
end;
begin
Form2:=TForm2.Create(Application);
Form2.Visible:=true;
end;
с) Добавить в проект
программный модуль 2 формы
Project,
Add to Project, Unit2.pas
Project, Options
Перевести
из
Auto-Create Forms в
Available Forms
Все формы создаются
автоматически при запуске приложения
и 1 – главная.
Project, Options, Forms
Main Forms
– главная
форма.
Auto-create
Forms – автом.
созд.формы.
Available
Forms – доступные
формы.
Project,
View Soure – посмотреть
проект.
Для
Available Forms автоматически
создается
код:
Application.CreateForm(TForm2,Form2);
Возникает
событие
OnCreate для
настройки
параметров
форм.
Show
или ShowModal
делают форму видимой.
Возникает событие
On
Show.
Методом Hide
форму можно сделать невидимой.
Возникает событие
OnHide.
Поле вывода
Интернет-страниц
для электронного
учебника
Палитра
компонентов
Internet,
WebBrowser
type
WebBrowser1:
TWebBrowser;
WebBrowser1.Navigate('D:\Teach7.app\d5.htm');
23
