Дістемелік кешені

1. 
   Standard бетінен Form1 формаға MainMenu1 компонентін орналастырамыз.
   

2. 
   Инспектор объектіден Items қасиетіндегі MainMenu1 компонентін таңдап, үш нүктелі кнопкасын басамыз. Осыдан кейін конструктор менюі экранда көрінеді.Констуктор менюі арқылы меню элементін жазамыз.Клавишаның тез орын ауыстыруын & символы арқылы беруге болады. Элемент менюі сызық арасын көрсетуі үшін, оның Caption қасиетіне ‘-’ мәнін береміз.
   

3. Егер барлық меню пунктін еңгізгеннен кейін , меню конструкторлы терезесін жабамыз. Form 1 формада құрылған меню қалады.Меню пунктінің реакциясын анықтау үшін, барлық меню пункттерін мышкамен басукерек. Осы кезде Редактор кода терезесі пайда болады. Оған OnClick оқиғасына программалық кодты жазу керек: New меню элементінің OnClick оқиғасы төмендегі түрде болады:

Модульдің қалыптасуының толық текстін көрсетеміз. unit Popup1;

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus;

type

TForm1 = class(TForm) MainMenu1: TMainMenu; File1: TMenuItem;

Run1: TMenuItem;

New1: TMenuItem;

Open1: TMenuItem;

Save1: TMenuItem;

Close1: TMenuItem; N1: TMenuItem; Rropen1: TMenuItem; Project11: TMenuItem; Progect21: TMenuItem; Project31: TMenuItem; Cut1: TMenuItem; Copy1: TMenuItem; Past1: TMenuItem; Delete1: TMenuItem; Run2: TMenuItem; N2: TMenuItem; raceInto1: TMenuItem;

procedure New1Click(Sender: TObject); procedure Open1Click(Sender: TObject); procedure Save1Click(Sender: TObject); procedure Close1Click(Sender: TObject); procedure Project11Click(Sender: TObject); procedure Progect21Click(Sender: TObject); procedure Project31Click(Sender: TObject); procedure Cut1Click(Sender: TObject); procedure Copy1Click(Sender: TObject); procedure Past1Click(Sender: TObject); procedure Delete1Click(Sender: TObject); procedure Run2Click(Sender: TObject); procedure N2Click(Sender: TObject);
65

procedure raceInto1Click(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;

var

Form1: TForm1; implementation {$R *.dfm}

ShowMessage ('Выбранпункт New'); end;

ShowMessage ('Выбранпункт New') end;

ShowMessage ('Выбранпункт Save') end;

ShowMessage ('Выбранпункт Close') end;

ShowMessage ('Выбранпункт Project1') end;

ShowMessage ('Выбранпункт Project2') end;

ShowMessage ('Выбранпункт Project3') end;

ShowMessage ('Выбранпункт Cut') end;

ShowMessage ('Выбранпункт Copy') end;

ShowMessage ('Выбранпункт Past') end;

ShowMessage ('Выбранпункт Delete') end;

ShowMessage ('Выбранпункт Run') end;

ShowMessage ('Выбранпункт Step Over') end;

ShowMessage ('Выбранпункт Trace Into') end;