автоматическое завершение диалога с копированием этого значения в свойство ModalResult формы. Анализируя свойство ModalResult после завершения диалога, программа узнает, какую кнопку нажал пользователь и в соответствии с этим направляет работу программы в нужное русло.
Помните, что свойство ModalResult работает только в монопольных окнах диалога.
Шаг 5. Перейдем теперь от теории к практике и создадим в нашем окне About кнопку OK (рисунок 9.4). Для этого выберите в палитре компонентов компонент Button, опустите его в форму и установите его свойства следующим образом:
Cancel = True
Caption = OK
Default = True
ModalResult = mrOk
Рисунок 9.4. Кнопка OK в окне About
9.2.3. Кнопка с рисунком
Каждый из нас в душе художник. Поэтому рано или поздно стандартные невзрачные кнопки, содержащие лишь “голый” текст, перестанут вам нравиться. Появится естественное желание их как-то приукрасить. В этом случае мы советуем вам вместо компонента Button воспользоваться компонентом BitBtn. Он расположен в палитре компонентов на вкладке
Additional.
429
Рисунок 9.5. Компонент BitBtn
Компонент BitBtn обладает теми же возможностями, что и компонент Button, но кроме текста может содержать значок, который придает кнопке более привлекательный вид. По сравнению с компонентом Button компонент BitBtn имеет некоторые новые свойства, которые отражены в таблице 9.2.
Свойство
Glyph
NumGlyphs
Layout
Margin
Spacing
Kind
Описание
Значок на кнопке.
Количество вариантов значка. Компонент делит рисунок Glyph по горизонтали на заданное количество значков и рисует один из них в зависимости от состояния кнопки.
Положение значка относительно текста: blGlyphLeft — слева, blGlyphRight — справа, blGlyphTop — сверху, blGlyphBottom — снизу.
Расстояние от границы кнопки до значка. Если оно равно -1, то значок вместе с текстом центрируются на кнопке.
Расстояние от значка до текста. Если оно равно -1, то текст центрируется между значком и границей кнопки.
Задает кнопку стандартного вида. Упрощает создание таких стандартных кнопок, как
OK, Cancel, Yes, No, Close, Abort, Retry, Ignore, All, Help.
Таблица 9.2. Характерные свойства компонента BitBtn
Заметим, что кнопка, содержащая значок, принимает наиболее красивый вид, если свойство Margin равно значению 4, а свойство Spacing равно значению 1.
С помощью компонента BitBtn стандартные кнопки OK, Cancel, Yes, No, Close, Abort, Retry, Ignore, All и Help создаются проще, чем при использовании компонента Button. Для этого в свойстве Kind достаточно выбрать одно из значений, приведенных в таблице 9.3.
Вид Результат Значение кнопки установки значения
Caption = 'OK'
bkOK Default = True ModalResult =
mrOK
Caption = bkCancel 'Cancel'
Cancel = True
Пояснения
Кнопка, подтверждающая ввод данных.
Кнопка, отменяющая ввод данных.
430
bkYes
bkNo
bkAll
bkAbort
bkRetry
bkIgnore
bkHelp
ModalResult = mrCancel
Caption = '&Yes' Default = True ModalResult = mrYes
Caption = '&No' Cancel = True ModalResult = mrNo
Caption = '&All' ModalResult = mrAll
Caption = 'Abort' ModalResult = mrAbort
Caption = '&Retry' ModalResult = mrRetry
Caption = '&Ignore' ModalResult = mrIgnore
Caption = '&Help'
Кнопка для положительного ответа на вопрос.
Кнопка для отрицательного ответа на вопрос.
Кнопка для положительного ответа на все вопросы.
Кнопка для прерывания операции.
Кнопка для повторения операции.
Кнопка для игнорирования произошедших изменений и продолжения начатой операции.
Кнопка для вызова справочника. Вы можете вызывать справочник в обработчике события OnClick или возложить эту работу на среду Delphi, установив у формы свойство HelpContext в нужное значение.
bkClose |
Caption = |
Кнопка, закрывающая форму. |
|
'&Close' |
|||
|
|
||
bkCustom Любой |
Любой |
Кнопка для ваших собственных целей. |
|
|
Таблица 9.3. Значения свойства Kind компонента BitBtn |
||
Например, если вам нужна кнопка OK, установите свойство Kind в значение bkOK. В результате на кнопке появится зеленая "галочка" и текст "OK", свойство Default получит значение True и свойство ModalResult получит значение mrOK.
9.2.4. Украшение окна диалога рисунком
Хорошее приложение должно быть не только функционально, но и эстетично. Как говорится, хорошее блюдо должно быть красиво подано. Это относится и к нашему замечательному приложению, и конечно к его окну
431
About. А что может лучше украсить окно About, чем яркий, запоминающийся рисунок.
Шаг 6. Как вы уже знаете, рисунок создается с помощью компонента Image, расположенного в палитре компонентов на вкладке Additinal. Выберите этот компонент и поместите его в форму AboutForm.
Шаг 7. Установите свойство AutoSize в значение True, чтобы компонент автоматически подгонял свои размеры под размеры рисунка, и установите свойство Transparent в значение True, чтобы рисунок отображался с прозрачным фоном.
Рисунок 9.6. Прозрачный фон для рисунка задается установкой свойства Transparent в значение True
Шаг 8. Чтобы установить рисунок, перейдите к свойству Picture и нажатием кнопки с многоточием откройте окно Picture Editor. Это окно должно быть вам уже знакомо. Загрузите файл Athena.bmp из папки "C:\Program Files\Common Files\Borland Shared\Images\Splash\16Color". Рисунок появится в форме (рисунок 9.7).
Рисунок 9.7. В компоненте Image загружен рисунок
432