Ы маамммтттттngy s,,,,,,,,,,,C, xf

procedure TForm1.New1Click(Sender: TObject);

begin

ShowMessage('New punkti');

end;
6.Tuzilgan loyiha (proekt) ya’ni Project1 va Unit1 standart modul nomlarini mos nomlar bilan almashtirib saqlaymiz.

7.Yangi nom bilan saqlangan proekt, ya’ni ilova F9 tugmachasini bosish bilan ishga tushuriladi.

Ilova ishga tushirilganda uning quyidagi ko’rinishi ekranda namayon bo’ladi.

Tashkil qilingan modulning to’liq ko’rinishini keltiramiz.
unit menu1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus;
type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

File1: TMenuItem;

Edit1: TMenuItem;

Run1: TMenuItem;

New1: TMenuItem;

Open1: TMenuItem;

Save1: TMenuItem;

Close1: TMenuItem;

Cut1: TMenuItem;

Copy1: TMenuItem;

Past1: TMenuItem;

Delete1: TMenuItem;

RunF91: TMenuItem;

StepOver1: TMenuItem;

Exit1: TMenuItem;

Help1: TMenuItem;

procedure New1Click(Sender: TObject);