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;
Run1: TMenuItem;
New1: TMenuItem;
Open1: TMenuItem;
Save1: TMenuItem;
Close1: TMenuItem;
Cut1: TMenuItem;
Copy1: TMenuItem;
Past1: TMenuItem;
Delete1: TMenuItem;
StepOver1: TMenuItem;
Exit1: TMenuItem;
Help1: TMenuItem;
procedure New1Click(Sender: TObject);
Do'stlaringiz bilan baham: |