Файл: Создадим проект и добавим на форму элемент MainMenu.docx
ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 03.12.2023
Просмотров: 65
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
Создадим проект и добавим на форму элемент MainMenuДобавим пункты меню в данный элемент. Для создания разделительных линий в меню в поле заголовка нужно поставить знак «-»В свойстве ShortCut назначим пунктам меню функциональные клавишиИ добавим символ «&» к заголовкам главных пунктов меню для быстрого доступа к пунктам меню с использованием в комбинации с клавишей Alt.Отредактируем некоторые записи и получим следующий вид менюДобавим на форму ImageListИ загрузим в него иконки. У каждой картинки будет свой индексУкажем для меню данную компонентуИ далее для пунктов меню выберем соответствующие индексы картинки из ImageList1В итоге получимДалее создадим новую форму и назовем её «About». Укажем что эта форма диалоговаяДалее разместим на форме кнопку с иконкой BitBtn и настроим данную иконкуДобавим на форму Panel1 для группировки объектов и добавим в нее несколько тестовых полей Label и Memo. Разместим еще и элемент отображения картинки Image
Настроим вид элемента Panel1Добавим картинку и укажем в свойствах элемента Image1 растягивание картинки по форме объектаДля элементов Memo уберём и рамку и укажем фон цвета формыДобавим в них текст. Также добавим текст в элементы Label в итоге получимДобавим в код главной формы строчкуuses Unit2;Далее добавим код в функцию нажатия по пункту меню «Об авторе»procedure TForm1.N15Click(Sender: TObject);beginAbout.ShowModal;end;Запустим выполнение проекта и перейдем по данному пункту менюОтроется формаНа главную форму добавим два элемента Image и загрузим в них картинкиДобавим на форму ToolBar и с помощью добавления кнопок и разделителей добавим семь кнопокПодключим к нему ранее созданный ImageList Для каждой кнопки выберем свою картинкуВ кнопку выхода в меню и пункта тулбара добавим код, который будет закрывать наше приложениеClose;Добавим на главную форму элементы OpenDialog и SaveDialog. В кнопку открытия файла тулбара и меню добавим кодif OpenDialog1.Execute thenbeginMainForm.Caption := 'Обратная засечка двух пунктов --> ' + OpenDialog1.FileName;end;Теперь при загрузке фала в заголовке формы будет добавляться путь к нему и его имя. Далее добавим код в кнопки сохранения файла тулбара и меню
if SaveDialog1.Execute thenbeginShowMessage( 'Файл ' + SaveDialog1.FileName + ' сохранён');end;В функцию создания главной формы добавим кодApplication.Title:='Обратная засечка двух пунктов';Создадим еще четыре формы и добавим код их открытия в соответствующие пункты меню и тулбараВ кнопки открытия формы сданнымиDataForm.ShowModal;В кнопки открытия формы поиска решенияFindForm.ShowModal;В кнопки открытия формы графикаGraphForm.ShowModal;В кнопку меню открытия формы с информацией по программеInfoHelpForm.ShowModal;В код главной формы добавимuses Unit2, Unit3, Unit4, Unit5, Unit6;В итоге у нас получилась главная формаИ формы, которая она открывает
Настроим вид элемента Panel1Добавим картинку и укажем в свойствах элемента Image1 растягивание картинки по форме объектаДля элементов Memo уберём и рамку и укажем фон цвета формыДобавим в них текст. Также добавим текст в элементы Label в итоге получимДобавим в код главной формы строчкуuses Unit2;Далее добавим код в функцию нажатия по пункту меню «Об авторе»procedure TForm1.N15Click(Sender: TObject);beginAbout.ShowModal;end;Запустим выполнение проекта и перейдем по данному пункту менюОтроется формаНа главную форму добавим два элемента Image и загрузим в них картинкиДобавим на форму ToolBar и с помощью добавления кнопок и разделителей добавим семь кнопокПодключим к нему ранее созданный ImageList Для каждой кнопки выберем свою картинкуВ кнопку выхода в меню и пункта тулбара добавим код, который будет закрывать наше приложениеClose;Добавим на главную форму элементы OpenDialog и SaveDialog. В кнопку открытия файла тулбара и меню добавим кодif OpenDialog1.Execute thenbeginMainForm.Caption := 'Обратная засечка двух пунктов --> ' + OpenDialog1.FileName;end;Теперь при загрузке фала в заголовке формы будет добавляться путь к нему и его имя. Далее добавим код в кнопки сохранения файла тулбара и меню
if SaveDialog1.Execute thenbeginShowMessage( 'Файл ' + SaveDialog1.FileName + ' сохранён');end;В функцию создания главной формы добавим кодApplication.Title:='Обратная засечка двух пунктов';Создадим еще четыре формы и добавим код их открытия в соответствующие пункты меню и тулбараВ кнопки открытия формы сданнымиDataForm.ShowModal;В кнопки открытия формы поиска решенияFindForm.ShowModal;В кнопки открытия формы графикаGraphForm.ShowModal;В кнопку меню открытия формы с информацией по программеInfoHelpForm.ShowModal;В код главной формы добавимuses Unit2, Unit3, Unit4, Unit5, Unit6;В итоге у нас получилась главная формаИ формы, которая она открывает