Delphi 5. Учебник



         

FormStyle



Свойство FormStyle перечислимого типа определяет, как форма взаимодействует с вашим приложением и Windows.
    Существует два основных стиля форм — MDI (Multiple Document Interface — многодокументный интерфейс) и не MDI. Имеется два MDI-стиля (fsMDIForm и fsMDIChild), которые рассматриваются ниже. Не MDI формы существуют также в двух вариантах— fsNormal и fsStayOnTop. Наиболее популярен стиль fsNormal, который создает стандартный стиль, используемый для диалогов, панелей инструментов и SDI-приложений.
    Стиль fsStayOnTop применяется реже и создает форму, всегда остающуюся поверх других форм и приложений, что может быть полезно при выводе системной информации и использовании ресурсов. Примером такого окна является окно программа Chat, используемой при работе в сети.
    Вот как можно реализовать, подобно программе Chat, установку вывода поверх других окон путем выбора пункта меню.

    procedure TFormI.mnuAlwaysOnTopClick(Sender: TObject);
    begin
        with mnuAlwaysOnTop do
        begin
            {Переключаем отметку выбора пункта меню.}
            Checked:= not Checked;
            {Проверка установок меню.}
            if Checked then
                    (Устанавливаем стиль fsStayOnTop.)
                    FormStyle:= fsStayOnTop
            else
                    {Возвращаем нормальный стиль.}
                    FormStyle:= fsNormal;
        end;
    end;

Совет: Изменение свойства FormStyle вызывает событие OnShow.




Содержание  Назад  Вперед