property ModalResult: TModalResult; type

TModalResult = Low(Integer)..High(Integer);

Модальды терезелерді жапқанда қолданылатын қасиет. Қарапайым терезелер үшін бұл қасиеттің мәні mrNone – ге тең болуы керек..

TButton класында Click әдісі анықталған:

procedure Click; override;

Бұл әдістің орныдалуы батырмаға шерткенге мәндес келеді, яғни оның орындалуының нәтижесінде батырма үшін OnClick оқиғасы өрбиді.

1. 
   Меншік қаптамаңызға (№1 – ші зертханалық жұмысқа қараңыздар) MyFirstProject қаптамасын құрыңыздар (кез – келген басқаны да құруға болады).
   
2. 
   Негізгі менюдің File | New | Application командасы арқылы жаңа қосымша ашыңыздар.
   
3. 
   Form1 пішініне келесі құрауыштарды орналастырыңыздар (3.1.1 суретіне қараңыздар):
   
4. 
   Label тамғасының Caption қасиетіне мына мәнді беріңіздер:
   «Введите коэффициенты квадратного уравнения
   A2*X^2+A1*X+A0=0»
   Мәтін екі жолға орналасу үшін және тамғаның ортасы бойынша теңестірілуі үшін қасиеттің келесі мәндерін қажетті түрде орнату керек:
   AutoSize – False,
   WordWrap – True,
   Alignment – taCenter.
   Тамғаның өлшемін және оның орналасу жағдайын қолмен ұйымдастыруға болады.
   Font қасиетіне келіңіздер және үш нүктесі бар батырмаға шертіңіздер. Пайда болған терезеден қаріптің өлшемін 8 – ден 10 – ға өзгертіңіздер. OK батырмасына басыңыздар .
   
5. 
   Label2, Label3 және Label4 тамғалары үшін Caption қасиетіне ‘A0=’, ‘A1=’ және ‘A2=’ - ге тең деп сәйкес орнатыңыздар.
   
6. 
   Edit1, Edit2 және Edit3 қасиеттері үшін Text қасиетінің мәнін бос жолға тең деп орнатыңыз.
   
7. 
   Memo1 құрауышы үшін Lines қасиетін таңдаңыздар және үш нүктесі бар батырмаға басыңыздар. Пайда болған String List Editor терезесінен ‘Memo1’ жолын жойыңыздар. OK батырмасына басыңыздар.
   
8. 
   Button1 және Button2 батырмаларының Caption қасиетіне ‘Решение’ және ‘Очистить’ сәйкес орнатыңыздар.
   
9. 
   Екі рет шерту арқылы Решение батырмасын белсенді етіңіз және OnClick оқиға өңдеуішіне келесі жолды қойыңыздар: