Delphi tilida

tte E*  
U* 

MainMenul: TMainMenu; 
Filel: TMenuItem; 
Editl: TMenuItem; 
Runl: TMenuItem; 
Newl: TMenuItem; 
Openl: TMenuItem; 
Savel: TMenuItem; 
Closel: TMenuItem; 
Cutl: TMenuItem; 
Copyl: TMenuItem; 
Pastl: TMenuItem; 
Deletel: TMenuItem; 
RunF91: TMenuItem; 
StepOverl: TMenuItem; 
Exitl: TMenuItem; 
Helpl: TMenuItem; 

109 

procedure NewlClick(Sender: TObject); 
procedure OpenlClick(Sender: TObject); 
procedure SavelClick(Sender: TObject); 
procedure CloselClick(Sender: TObject); 
procedure CutlClick(Sender: TObject); 
procedure CopylClick(Sender: TObject); 
procedure PastlClick(Sender: TObject); 
procedure DeletelClick(Sender: TObject); 
procedure RunF91Click(Sender: TObject); 
procedure StepOverlClick(Sender: TObject); 
procedure HelplClick(Sender: TObject); 

var 

implementation 
{$R *.dfm} 

Procedure TForml.NewlClick(Sender: TObject); 
Begin 

Procedure TForml.OpenlClick(Sender: TObject); 
Begin 

Procedure TForml.SavelClick(Sender: TObject); 
Begin 

110 

procedure TForml.CutlClick(Sender: TObject); 
begin 

procedure TForml.CopylClick(Sender: TObject); 
begin 

Procedure TForml.PastlClick(Sender: TObject); 
Begin 

Procedure TForml.DeletelClick(Sender: TObject); 
Begin 

Procedure TForml.RunF91Click(Sender: TObject); 
Begin 

procedure TForml.StepOverlClick(Sender: TObject); 
begin 

procedure TForml.HelplClick(Sender: TObject); 
begin 
ShowMessage('New punkti'); 
end; 
end. 
M i s o 1 9. 

111 

PopupMenukomponentasini ham PopupMenul nombilan o‘rnatamiz. 
Buning uchun bu komponenta ikki marta tez-tez bosiladi. 

► Fm»l 
jlLqJkJ 

!bI: !BM Jr^jj : 

3.PopupMenul komponentasining Items xossasiga o‘tamiz va uning 

uch nuqtali tugmasini bosamiz. Kontekst menyu elementlarini 
kiritamiz: Open, Save va Font. 
4.Menyu konstruktoridan chiqmasdan Open, Save va Font 
buyruqlari uchun dastur kodi muharrirmi chaqiramiz. Ularning har 
biri uchun quyidagi dastur kodlarini kiritamiz: 

ButtonlClick(Buttonl); 
end;