close

Вход

Забыли?

вход по аккаунту

?

Меню

код для вставкиСкачать
Ионова Наталья Михайловна
Преподаватель 2 категории, Автономное учреждение Республики Саха (Якутия) «Южно
-
Якутский технологический колледж»,
2013 год
Создание меню в Delphi
Для создания меню в среде программирования Delphi
используют компоненты палитры Standard
–
MainMenu
и PopupMenu
MainMenu
-
главное меню формы
Для создания главного меню, необходимо пиктограмму
MainMenu
щелчком мыши поместить в область конструктора формы.
Щелкнув на пиктограмме откроется окно создания компонент меню Form1.MainMenu1
Для создания пунктов меню выделим первый пункт
В Инспекторе объектов, в закладке Properties изменим значение свойства
Caption
на Меню
В результате в окне создания компонентов меню появится первый пункт -
Меню
Для создания пунктов подменю, необходимо щелкнуть на соответствующий пункт меню и изменить значения свойства Caption
Для создания разделительной черты в подменю, в значении свойства Caption
достаточно поставить знак «
-
»
После окончания процесса создания пунктов меню оно отобразится в верхней части окна формы.
Когда
создание
интерфейсной
части
закончено,
необходимо
для
каждого
пункта
прописать
программный
код
.
Для
этого
достаточно
щелкнуть
на
пункте
команды
.
В
результате
откроется
окно
кода
вида
:
Например,
для
реализации
пункта
«Закрыть»
программный
код
будет
выглядеть
:
Запустив
проект
мы
увидим
:
Выбрав
пункт
«Закрыть»,
программа
вернется
в
окно
формы
.
Программный код созданного меню:
unit Unit1;
interface
uses
Windows, Messages, SysUtils
, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;
type
TForm1 = class(
TForm
)
MainMenu1: TMainMenu
;
N1: TMenuItem
;
N2: TMenuItem
;
N3: TMenuItem
;
N4: TMenuItem
;
N5: TMenuItem
;
procedure N3Click(Sender: TObject
);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.N3Click(Sender: TObject
);
begin
close
;
end
;
end
.
PopupMenu
-
всплывающее (контекстное)
меню формы
Для создания всплывающего меню, необходимо пиктограмму PopupMenu
щелчком мыши поместить в область конструктора формы.
Щелкнув на пиктограмме откроется окно создания компонент меню Form1.
PopupMenu
1
Аналогично созданию пунктов главного меню создаются пункты контекстного меню.
Чтобы меню отображалось необходимо в свойствах формы выбрать его в соответствующей строке.
Запустив
проект
и
нажав
правую
кнопку
мыши
мы
увидим
:
Аналогично
главному
меню
прописываются
коды
для
команд
всплывающего
меню
:
unit Unit1;
interface
uses
Windows, Messages, SysUtils
, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;
type
TForm1 = class(
TForm
)
MainMenu1: TMainMenu
;
N1: TMenuItem
;
N2: TMenuItem
;
N3: TMenuItem
;
N4: TMenuItem
;
N5: TMenuItem
;
PopupMenu1: TPopupMenu
;
N7: TMenuItem
;
N8: TMenuItem
;
N9: TMenuItem
;
procedure N3Click(Sender: TObject
);
procedure N8Click(Sender: TObject
);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.N3Click(Sender: TObject
);
begin
close;
end;
procedure TForm1.N8Click(Sender: TObject
);
begin
close
;
end
;
end
.
Полный
программный
код
приложения
:
Список источников:
1.
Архангельский А.Я. Язык Pascal
и основы программирования в Delphi
-
М.: Бином
-
Пресс, 2006
2.
Попов В.В. Delphi
. Учимся правильно программировать. –
М.:Век+Корона
-
принт, НТИ, 2006
Автор
profobrazovanie
Документ
Категория
Презентации
Просмотров
91
Размер файла
2 894 Кб
Теги
меню
1/--страниц
Пожаловаться на содержимое документа