Учебник по Delphi 4

       

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



    Интерфейс 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.


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