### 3.5. Написание диалогового окна about

Сначала мы нажмём в главном окне Delphi на кнопке (New Form), и создастся новая форма. А затем мы настроим для формы следующие свойства: сначала настроим свойства Height и Width, свойству Height установим значение 270, а свойству Width значение 318. Потом для формы в свойстве Caption введём значение About. После этого на форме надо разместить следующие компоненты:

- 1 анимация класса TAnimate с панели Win32;
- 1 рамка класса TBevel с панели Additional;
- 1 кнопка с картинкой класса TBitBtn c панели Additional;
- 1 картинка класса TImage, с панели Additional;
- 4 надписи класса TLabel с панели Standard.

Сначала мы настроим анимацию, для этого щёлкнем на компоненте Animate1 и активизируем свойство CommonAVI, и выберем в списке значение aviCopyFiles, это значение соответствует стандартной анимации копирования файлов в Windows. А свойство Active установить значение true. Давайте перейдём к настройке рамки, для этого переключимся на компонент Bevel1, и изменим, значения свойств Height и Width, для свойства Height установим значение 225, а свойству Width – 297. После этого можно перейти к компоненту BitButton1, сначала активизируем этот компонент, и найдём свойство Kind, и выберем значение bkOK, а в свойстве ModalResult установим значение mrOk. А теперь перейдём на компонент Label1, и введём в свойстве Caption значение «Product Name: TextEditor», а для следующей надписи введём значение «Version: 2.0.0.0», а для третей – «CopyRight: права на копирование и распространение», а в четвёртую надо ввести «этой программы принадлежат», а в конце вы можете ввести свою фамилию и имя. После этого давайте переключимся на компонент Image1, потом мы настроим свойство Picture, для этого щёлкнем на многоточии после этого свойства, в появившемся диалоговом окне нажмём кнопку Load…, и загрузим нужную картинку.

<<Назад | Далее>>