Учебник по Delphi 4

       

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.



Содержание раздела