Delphi tilida

Ochiih 
|  
S-aqlM-h | 
Stirtl 
| 

Dialogs, StdCtrls, Menus; 
Type 

105 

TForml = class(TForm) 
Buttonl: TButton; 
Button2: TButton; 
Button3: TButton; 
Memol: TMemo; 
OpenDialogl: TOpenDialog; 
SaveDialogl: TSaveDialog; 
FontDialogl: TFontDialog; 
procedure ButtonlClick(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
procedure Button3Click(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 

Forml: TForml; 

If not Execute then Exit; 
Memol.Lines.LoadFromFile(Filename) 
End; 
end; 

If not Execute then Exit; 
Memo 1. Lines. SaveToFile(Filename); 
End; 
end; 

procedure TForml.Button3Click(Sender: TObject); 

106 

If not Execute then Exit; 
Memol.Font:=Font; 
End; 

4.7.Ilovalar uchun menyu yaratish 

Ko‘pchilik ilovalar bosh menyuga ega bolib. bajariladigan operatsiyalar
ro‘yxatini o‘z ichiga oladi. Bosh menyu punktlari nolinchi darajadagi 
menyu elementlari deyiladi. Ularning har biriga bog‘liq bolgan birinchi 
darajali menyu elementlarini o‘z ichiga olishi mumkin. 
Delphida bosh menyu tashkil qilish uchun maxsus vizual bolmagan 
MainMenu komponentasi mavjud. Bu komponenta Standart kompo- 
nentalar palitrasida joylashgan bo'lib, u belgili piktogrammaga 
ega. 
MainMenu komponentasining asosiyxossasiItems xossasidir. U o‘zida
ilova bosh menyusining nolinchi darajali elementlarini saqlaydi. 
M alumki Windows sistemasida sichqonchaning o‘ng tugmasi 
bosilganda yordamchi menyu chiqadi. Bu menyuga «K0HTeKCTH0e 
MeHK>» deyiladi. Delphida bunday kontekstli menyuni tashkil qilish 
uchun maxsus vizual bolmagan PopupMenu komponentasi mavjud. 
Bu komponenta Standart komponentalar palitrasida joylashgan bo‘lib,
u belgili piktogrammaga ega. 

File, Edit va Run tuzilmaga ega bosh menyu va ular tanlanganda 
unga mos punktlariga o‘tish dastur ilovasi yaratilsin.