Надпись в заголовке основного окна программы, во время ее выполнения:
Mainfo.caption:= “The Galaxy Data Keeper”
Далее, это – способ завершения программы, а также вывод подсказки. В любой нормальной программе, эти операции инициируются из основного меню, а также специальной копками или клавишами. Раз у нас несколько возможных мест – опишем само действие, а уже потом привяжемся к нему в нужных местах.
Для описания действий есть компонент “taction”. Поэтому уроним (GUI -> taction) на нашу форму и назовем его "actExit" , и назначим ему исполняемый код:
свойство «onexecute»: пишем название процедуры “ appexit ”, жмем “ Enter ” и дважды кликаем мышью, что переносит нас в сам код добавленной процедуры, вставляем туда команду на завершение программы, получая
procedure tmainfo.appexit(const sender: TObject);
begin
application.terminated:= true;
end;И назначаем данному действию “горячую” комбинацию клавиш:
Shortcut:= Ctrl+Q
Далее роняем на форму компоненты :
Widget->tbutton :
это будет кнопка для завершения программы.
Примечание :
то есть нажатие данной кнопки вызывает закрытие окна ( формы ) , на которой кнопка расположена ( mainfo ) , а закрытие формы - автоматически завершает работу приложения; но здесь мы это способ не применяем, потому что закрытие приложения - привязано к "taction" .
Далее роняем заготовку главного меню программы :
Widget->tmainmenu :
- Name:= mnuMain
- Menu->submenu.count ->(RightClick)->AddItem
- Item0 :
- caption:= &File
submenu.count -> (RightClick) ->AddItem
- item0:
- caption:= E&xit
- action:= actExit
- Item1:
- Caption:= &Help
Говорим форме "используй это меню" :
Mainfo
menu:= mnuMain
и сразу видим, что "File" и "Help" в меню - очень близко друг к другу. Поэтому далее роняем компонент, управляющий стилем рамок, границ, отступов и зазоров :
GUI->tframecomp (1) :
- Name:= ftMainMenuItem
- Template
- framei:
- Left:= 10
- Right:= 50
и с его помощью раздвигаем пункты в полосе меню :
mnuMain
- itemframetemplate:= ftMainMenuItems
Теперь можно попробовать меню – как во время работы программы. Обратите внимание на название горячей комбинации ( Ctrl+Q , а также подчеркнутую “x” в “Exit” – там, где в “caption” стоит “&” )
Можно даже запустить нашу программу (нажав F9 ), и убедиться, что меню работает, а также в том, что программа может быть завершена задуманным образом.
Во время работы можно менять размер окна программы, при этом “btnExit” остается на прежнем месте, а лучше бы она держалась за нижний правый угол окна программы:
btnExit
- anchors:
- an_top:= false
- an_left:= false
- an_right:= true
- an_bottom:= true
Кнопка "btnExit" может показаться малозаметной. Выделим ее рельефом и цветом.
Условимся, что цвет кнопок закрытия (Close), завершения(Exit) и отмены (Cancel) - светло-желтый.
Опять роням компонент
управления стилем границ :
GUI->tframecomp (2) :
- Name:= ftButtons
- Template
- colorclient:= cl_ltyellow // цвет фона внутренней зоны - светло-желтый
- leveli:= 2 // внутренную зону приподнять на 2 единицы
- levelo:= -1 // все целиком - опустить на 1 единицу
Теперь назначим кнопке "btnExit" вышесозданный "стиль" :
btnExit->frame->[...] :
- template:= ftButtons
и видим, как это стиль сразу отразился на кнопке.