procedure TForml.ButtonlClick(Sender: TObject); Var z2, z:Longlnt;s:String; begin z2:= StrToInt(Editl.Text); z:= zl*z2; s:= IntToStr(z); With labell.Font do begin Name:= 'Courier'; Size:= 16; Color:= clRed; Style:= [fsBold]; end; Labell.Caption:=S; end; end. Burada, OnKeyPress hadisə emaledicisində, Editl komponentinə daxiletmə fokusu verilir, birinci vuruq daxil edilir, Enter klavişi basıldıqdan sonra mətn sahəsi təmizlənir (ikinci vuruğun daxil edilməsi üçün hazırlanır). Digər komponentləri öyrəndikdə biz nisbətən daha mükəmməl kalkulyator hazırlayacağıq.
Siyahılar
Siyahı mətn sətirlərindən ibarət qarşılıqlı əlaqəli, nizamlanmış elementlar yığımıdır. Windows sistemində siyahılardan geniş istifadə olunur (Font dialoq pəncərəsində şriftin adı, tərzi, ölçüsü, rəngi və s.). Bu sistem üçün aşağıdakı siyahılar xarakterikdir: Açılan siyahı pəncərədə bükülmüs sətirdən ibarət olur. Bu sətirdə yerl düymə üzərində mausun düyməsini basdıqda siyahı açıhr və bu siyahıdan istənilən bəndi seçmək olar. Siyahı büküldükdə seçilmiş bənd bir sətirdə olunur. Siyahıdan ibarət açılan sahə - açılan siyahıya oxşayır, lakin, ondan olaraq, siyahıya klaviaturadan yeni qiymət (bənd) əlavə etmək olar. Bu sriyahıda kombinasiyalı siyahı da deyirlər. Bu iki idarəetmə elementi Delphi-nin etdiyi ComboBox komponenti ilə yaradılır. Sadə siyahı - ekranda dərhal görünən bir neçə sətirdən ibarət olur. element ListBox komponenti ilə yaradılır. Sadə siyahı Sadə siyahılarda mətnlərdən ibarət sətirlər düzbucaqh sahədə yerləşir. siyahıları yaratmaq üçün Standart səhifəsindəki ListBox kompon istifadə olunur. Əgər sətirlərin sayı görünmə sahəsində yerləşə biləcəyindən çoxdursa. siyahıda fırlatma zolağı əmələ gəlir. Fırlatma zolaqları və sütunların Integer tipli Columns xassəsinin qiymətindən asılıdır. Əgər onun qiyməti olarsa, onda sətirlər bir sütunda yerləşəcək və zərurət yaranarsa, şaquli fitf zolağı avtomatik əmələ gələcək və ya itəcəkdir. Əgər Columns xassəsinin qiyməti 7-dən böyük və ya 1-ə bərabər olarsa, onda hökmən üfuqı zolağı olacaq və sütunların sayı xassənin qiyməti qədər olacaqdır. Siyahıda hər iki firlatma zolağının olması üçün Columns xassəsinə 0 qiyməti vermək lazımdır. Bu zaman şaquli firlatma zolağı, zərurət yaranarsa, peyda olacaqdır. Üfuqi firlatma zolağını yaratmaq üçün isə SendMessage metodu ilə
