Учебник по Delphi 4.0

Хотя свойство Position позволяет определить, каким образом будет выводиться форма, профессионально сделанные приложения сами запоминают свое расположение на экране и при следующем запуске выводятся в той же позиции и с тем же размером. Это осуществимо, например, благодаря записи положения окна в Registry или в INI-файле, в том же каталоге, где находится приложение. Обычно сохранение позиции и размеров экрана выполняется в самый последний момент — при уничтожении формы.

procedure TForml.FormDestroy(Sender: TObject);

var

sAppPath: String;

iniSettings: TINIFile;

begin

{Получить путь к ЕХЕ-файлу приложения.}

sAppPath:= ExtractFilePath(Application.EXEName);

{Создаем объект TINIFile.}

iniSettings:= TINIFile.Create(sAppPath + 'SETTINGS.INI');

try

{Записываем свойства в INI-файл.}

iniSettings.Writelnteger(Name,'Left',Left);

iniSettings.Writelnteger(Name,'Top',Top);

iniSettings.Writelnteger(Name,'Width',Width);

iniSettings.Writelnteger(Name,'Height',Height);

finally

iniSettings.Free;

end;

end;

Совет:Для компиляции примера не забудьте включить в раздел uses модуль INIFiles.

После выполнения кода ваш INI-файл будет содержать нечто вроде

[Form1]

Left=108

Тор=174

Width=540

Height=165

Заметьте, что для строки раздела используется свойство Name вашей формы.

Восстановить положение формы на экране немного сложнее (главным образом из-за того, что следует отработать ситуацию, когда INI-файла нет).

procedure TFormI.Create(Sender: TObject);

const

CNOTFOUND = –1;

var

sAppPath: String;

iniSettings: TINIFile;

liValue: Longint;

begin

{Получаем путь к ЕХЕ-файлу приложения.}

sAppPath:= ExtractFilePath(Application.ExeName);

{Создаем объект TINIFile.}

iniSettings:= TINIFile.Create(sAppPath + 'SETTINGS.INI');

try

{Пытаемся считать значение Left.}

liValue:= iniSettings.Readlnteger(Name,'Left',cNOTFOUND);

{Проверяем, считано ли значение.}

if liValue = cNOTFOUND then

begin

{Свойства в INI-файле не найдены — центруем форму.}

Left:= (Screen.Width — Width) div 2;

Top:= (Screen.Height — Height) div 2;

end

else

begin

{Считываем значения из INI-файла.}

Left:= iniSettings.Readlnteger(Name,'Left',Left);

Top:= iniSettings.Readlnteger(Name,'Top',Top);

Height:= iniSettings.Readlnteger(Name,'Height',Height);

Width:= iniSettings.Readlnteger(Name,'Width'.Width);

end;

finally

iniSettings.Free;

end:

end;

WindowState

Свойство перечислимого типа WindowState определяет состояние окна — свернутое, развернутое или нормальное. По умолчанию оно имеет значение wsNormal (при этом окно выводится в состоянии, определяемом свойствами Position, Left, Top, Height и Width). Чтобы свернуть или развернуть форму, используются значения wsMinimize и wsMaximize.

События TForm

Класс ТForm добавляет несколько событий к родительскому классу TWinControl. Эти события позволяют изменять поведение формы путем выполнения загрузки и сохранения информации о состоянии формы или распределения и освобождения дополнительных ресурсов.

Когда форма создается и отображается, происходит пять следующих событий.

1. OnCreate запускается при создании формы и позволяет распределять ресурсы и инициализировать форму.

2. OnShow происходит непосредственно перед выводом формы на экран. К этому времени все элементы управления и компоненты созданы и инициализированы.

Совет:Хотя к тому моменту, когда происходит событие OnShow, форма еще не видна, свойство Visible установлено равным True.

3. OnResize генерируется при изменении размера формы во время выполнения приложения. Обычно здесь помещается код для изменения размера и положения на экране элементов управления, не поддерживающих свойство Align. Событие OnResize также однократно генерируется при создании формы, когда Delphi устанавливает начальные размеры формы.

Совет:Onresize вызывается неоднократно в процессе изменения размеров формы.

4. OnActivate происходит при получении формой фокуса ввода. OnActivate вызывается только при переходе фокуса ввода от одной формы к другой в пределах одного приложения. При переключении между приложениями Delphi генерирует событие OnActivate глобального объекта Application.

5. OnPaint запускается, когда необходимо перерисовать форму. Это может происходить, когда форма только что стала видимой, при частичном удалении перекрывающих ее элементов или увеличении размеров. Событие полезно, если вы перерисовываете какую-то часть формы самостоятельно.

Совет:Событие oncreate происходит один раз за все время существования формы, прочие же события могут вызываться неоднократно.

При закрытии и уничтожении формы также генерируется пять следующих событии.

1. OnCloseQuery генерируется в ответ на действия, закрывающие форму. Обработчик получает логическую переменную CanClose, определяющую, может ли форма быть закрыта. По умолчанию она имеет значение True, но если вы в обработчике установите False, форма останется открытой. Обычно это используется для сохранения не сохраненных файлов или для подтверждения закрытия формы. Вот пример такого кода.