Delphi 5. Учебник


         

Создание интерфейса



    Интерфейс MDI-приложения очень похож на интерфейс разработанного ранее SDI-приложения, но каждое изображение выводится в отдельной, а не в главной форме. Выполните следующие действия для создания родительской формы.

        1. Выберите команду File/New Application, и появится пустое приложение.
        2. Установите следующие свойства.
            Свойство                                           Значение
            Caption                                              Image Viewer
            FormStyle                                          fsMDIForm
            Name                                                frmMDIParent            ShowHint                                            True

        3. Поместите компонент TPanel в форму. Установите следующие его свойства.
            Свойство                                          Значение
            Align                                                    alTop
            Caption                                                -
4. Поместите три компонента TSpeedButton в TPanel и назовите их spbtnLoad, spbtnStretch и spbtnCenter. Установите следующие их свойства.
            Свойство                                          Значение
            spbtnLoad.Hint                                    Load
            spbtnLoad.Left                                    8
            spbtnLoad.Top                                    8
            spbtnStretch.AllowAlIUp                     True
            spbtnStretch.Grouplndex                      1
            spbtnStretch.Hint                                  Stretch
            spbtnStretch.Left                                  48
            spbtnStretch.Top                                  8
            spbtnCenter.AllowAlIUp                      True
            spbtnCenter.Grouplndex                       2
            spbtnCenter.Hint                                   Center
            spbtnCenter.Left                                   80
            spbtnCenter.Top                                   8
    Свойства Glyph установите те же, что и для SDI-приложения.

    5. Добавьте в форму компонент TOpenDialog и установите следующие его свойства.
            Свойство                                            Значение
            Filter                                                     Bitmaps (*.bmp)]*.bmp
            Name                                                    opndlgLoad
            Options                                                 [ofPathMustExist,ofFileMustExist]

Теперь создадим дочернюю форму.

       1. Выберите из меню File/New Form, и появится пустая форма.
       2. Установите следующие ее свойства.
              Свойство                                          Значение
              FormStyle                                            fsMDIChild
              Name                                                  frmMDIChild
              Position                                               poDefaultPosOnly
        3. Поместите компонент TImage во вновь созданную форму и установите его следующие свойства.
               Свойство                                         Значение
                Align                                                  alClient
                Name                                                 imgMain

    Удалите дочернюю форму из списка автоматически создаваемых форм следующим образом.
 
        1. Выберите команду Project/ Options, и появится диалоговое окно Project Options, показанное на рис. 1.14.
        2. Выберите frmMDIChild в списке Auto-create forms.
        3. Щелкните на кнопке. Форма frmMDIChild при этом будет перенесена в список Available forms.
        4. Щелкните на кнопке ОК.

    Теперь самое время сохранить проект, выбрав команду File/Save Project As. Сохраните Unit1 как MDIParent, а проект — как EgMDIApp.




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