Alqoritm, xassələri və təsvir üsulları

yazıb Enter 
klavişini basın. Beləliklə, ilk File menyusu yaradılacaqdır və Delphi ilə
menyuya avtomatik olaraq Nl adı verəcəkdir. Bu menyudan sağ tərəfdə, boş yerdə, mausun düyməsini 
basıb analoji qayda ilə Edit menyusunu və eyni qayda ilə Font and color menyusunu yaradın. Yenidən 
File 
menyusu 
üzərində mausun düyməsini basın. Bu menyuda yeni bir seçiləcəkdir. Obyektlər 
inspektorunda Caption xassəsinə Open mətni daxil edin. Gələcəkdə hansı prosedurun hansı menyu 
bəndini icra etdiyini başa düşmək üçün menyu bəndlərinə adlar verək (Name xassəsi). Bu menyuların bir 
neçəsini klavişlər kombinasiyası ilə icra etmək üçün Exit bəndinin ShortCut xassəsinə 
Ctrl+E, 
Undo 
bəndinə 
Ctrl+U, 
SelectAll bəndinə 
Ctrl+A 
qiymətləri seçin (öz arzunuzla istənilən menyu bəndi üçün 
klavişlər kombinasiyası təyin edə bilərsiniz). File menyusunda Exit bəndini digər bəndlərdən ayıraq. 
Bunun üçün Save as. . . menyu bəndini yaratdıqdan sonra, növbəti təklif olunan bəndin Caption xassəsinə 
ad deyil,
Enter 
klavişini basın. 
downloaded from KitabYurdu.org

---

231 
Kontekst menyunu yaratmaq üçün, PopupMenu komponentini seçərək, analoji əməliyyatları icra 
edin. Kontekst menyunun bəndlərini isə belə adlandırın (Name xassəsi): mkExit, mkReset, mkColor, 
mkFont. 
Menyu konstruktorunu bağlayın. Mətn redaktorunda menyu sətri yaradılmış olacaqdır. 
İndi Memol komponentini seçin. Redaktorun müştəri oblastının bütün pəncərəni əhatə etməsi 
üçün onun Align xassəsinə alClient qiyməti verin. Redaktor bütün pəncərə boyu açılacaqdır. Redaktorda 
fırlatma zolaqlarının olması üçün onun ScrollBars xassəsinə ssBoth (hər iki zolaq var) qiyməti verin. 
Redaktorun sərlövhəsini (Memol) pozun. Bunun üçün Lines xassəsi qarşısındakı üç nöqtə təsvirli 
düyməni iki dəfə basaraq açılan pəncərədən Hemol sözünü pozun. 
OpenDialogl komponentini seçib Filter xassəsi qarşısında mausun düyməsini basaraq 
Filter Editor 
redaktorunu çağırın. Bu redaktorun birinci sütununun birinci sətrinə 
Mətn faylları *.txt, *.doc, 
ikinci 
sütununun həmin sətrində 
*.txt, *.doc 
yazın. İkinci sətrin birinci sütununda 
Bütün fayllar *.*, 
ikinci 
sütununda isə *.* yazıb 
Ok 
düyməsini basın. Obyektlər inspektorunda CefaultExt xassəsinə 
'txt' 
qiyməti 
daxil edin. Bütün bu əməliyyatları SaveDialogl komponenti üçün təkrar edin. 
Layihə modulunda bütün prosedurlar menyu bəndləri üzərində, OnActivate (forma aktivləşdikdə) 
proseduru isə forma üzərində mausun düyməsini bir dəfə basmaqla yaradılacaqdır. Əslində modulun 
bütün prosedurlan (kontekst menyudan başqa) əvvəlki redaktorda düymələr üçün yaradılmış 
prosedurlardır. Kontekst menyular üçün prosedurlarda isə yeni kodlar yazılmayacaq, sadəcə olaraq əsas 
menyu bəndlərini imitasiya kodu yazılacaqdır. 
Beləliklə, menyularla idarə olunan məm redaktorunun modulunun tam mətni belə olacaqdır: 
unit Unitl; 
interface 
uses 
Windows, Messages, SysUtils, Classes, 
 Graphics, Controis, Forms, Dialogs,
Menus, StdCtrls; 
type
Tforml = class(TForm)
Memo1: TMemo;
MainMenul: TMainMenu;
Nl: TMenuItem; 
Yl: TMenuItem; 
 N2: TMenuItem;
mnuOpen: TMenuItem; 
mnuSave: TMenuItem;
mnuSaveAs: Tmenu İtem;
downloaded from KitabYurdu.org

---

232 
 N6: TMenuItem;
mnuExit: TMenuItem; 
mnuUndo: TMenuItem;