Основная форма,
запуск и завершение приложения

Надпись в заголовке основного окна программы, во время ее выполнения:

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 :

это будет кнопка для завершения программы.

Примечание :

Далее роняем заготовку главного меню программы :

Widget->tmainmenu :

Говорим форме "используй это меню" :

Mainfo

menu:= mnuMain

и сразу видим, что "File" и "Help" в меню - очень близко друг к другу. Поэтому далее роняем компонент, управляющий стилем рамок, границ, отступов и зазоров :

GUI->tframecomp (1) :

и с его помощью раздвигаем пункты в полосе меню :

mnuMain

Теперь можно попробовать меню – как во время работы программы. Обратите внимание на название горячей комбинации ( Ctrl+Q , а также подчеркнутую “x” в “Exit” – там, где в “caption” стоит “&” )

Можно даже запустить нашу программу (нажав F9 ), и убедиться, что меню работает, а также в том, что программа может быть завершена задуманным образом.

Во время работы можно менять размер окна программы, при этом “btnExit” остается на прежнем месте, а лучше бы она держалась за нижний правый угол окна программы:

btnExit

Кнопка "btnExit" может показаться малозаметной. Выделим ее рельефом и цветом.
Условимся, что цвет кнопок закрытия (Close), завершения(Exit) и отмены (Cancel) - светло-желтый.
Опять роням компонент управления стилем границ :

GUI->tframecomp (2) :

Теперь назначим кнопке "btnExit" вышесозданный "стиль" :

btnExit->frame->[...] :

и видим, как это стиль сразу отразился на кнопке.