Информатика. Программирование в Delphi
71
Form1
в [
biSystemMenu
], т.е. установим
biMinimize
и
biMaximize
в
false
.
8. Все эти настройки свойств формы
Form1
можно было задать про-
граммным способом, например, в процедуре
FormCreate,
которая выполняется
при создании формы.
Для этого в инспекторе объектов на вкладке
Events
найдем событие
OnCreate
(происходит при создании формы).
Создадим процедуру
FormCreate,
выполнив двойной щелчок мышью по
правому полю события
OnCreate
.
В процедуре
FormCreate
зададим нужные свойства программным обра-
зом, обращаясь к ним напрямую. При этом пред свойством нужно указывать
имя объекта, свойство которого задается.
Например, Form1.Width:=400. Ширина формы Form1 устанавливается в
400 пикселей.
Оформим процедуру
FormCreate
следующим образом.
//процедура выполняется при создании формы
procedure TForm1.FormCreate(Sender: TObject);
begin
//задаем заголовок формы
Form1.Caption:='Социальный опрос';
// задаем ширину формы
Form1.Width:=400;
// задаем высоту формы
Form1.Height:=200;
// задаем цвет формы
Form1.Color:=clAqua;
// задаем стиль границ формы
Form1.BorderStyle:=bsSingle;
// задаем кнопки управления окном
Form1.BorderIcons:=[biSystemMenu];
end;
9. Запустим проект, нажав кнопку
F9
клавиатуры. Форма после запуска
проекта показана на рис. 4.3.
I...,61,62,63,64,65,66,67,68,69,70 72,73,74,75,76,77,78,79,80,81,...370