Delphi визуалды программалау ортасы



бет70/97
Дата06.01.2022
өлшемі2,03 Mb.
#12435
1   ...   66   67   68   69   70   71   72   73   ...   97
Байланысты:
Delphi vizualdy programmalau ortasy

4-сурет


5-сурет

3. «Сәлемдесу»


Жұмыстың мақсаты - мына әрекеттерді орындайтын бағдарлама құру:

1.Бағдарлама іске қосылғаннан кейін тышқанмен «Сәлемдесу» батырмасын басқанда «Алғашқы жетістігім» хабарламасын шығару.





6-сурет.

2. Бағдарламадан шығу үшін тышқанмен «Жабу» батырмасын шерту керек.


Бағдарламаны орындау жоспарының сипаттамасы.

1.Жаңа жоба ашу.

2.Пішінге: Label белгісі мен екі Button батырмаларын орналастыру.

3.Мына кестеде жазылған әрекеттерді орындау:



2-кесте

Белгі-ленген нысан

Object Inspector терезесінің астары

Қасиеттің аты/ Оқиғаның аты

Атқарылатын әрекет

Form1

Properties

Caption

Пішінге «Жоба 2» атын орнату

Label1

Properties

Caption

Жазбаға «Алғашқы жетістігім» мәтінін енгізу

Button1

Properties

Caption

Батырмаға«Сәлемдесу» атын орнату

Events

OnClick

Label1.Caption:='Алғашқы жетістігім'

Button2

Properties

Caption

Батырмаға«Жабу» атын орнату

Events

OnClick

Close;

4.Жобаны сақтаңыз, сосын оны іске қосып, орындалуын тексеріңіз.
Өздігінше орындауға арналған тапсырма.

1. Шығарылатын «Алғашқы жетістігім» сөзінің қаріпін стандарттан түрі, түсі және өлшемі бойынша өзгеше етіп жазу.



Көмек: Object Inspector-да Font қасиетінің оң жағында екі рет шерту.

2. «Шығу» батырмасының түрін тартымдылау түрге ауыстыру.



Көмек: Батырманы ауыстыру үшін, әуелі бастапқыны өшіріңіз, ал басқа BitBtn-ды компоненттер палитрасының Additional астарынан табасыз. Содан кейін оның түрін Kind қасиетінің көмегімен өзгертіңіз.

3. «Сәлемдесу» батырмасын басқаннан соң экранда «Бұл жұмысымыздың соңы болмасын!» деген хабарлама шығатын етіңіз.



Көмек: Button1 батырмасының OnClick оқиғасына әсері кезіндегі Label1 белгісінің Caption қасиетінің мәнін өзгертіңіз.


Достарыңызбен бөлісу:
1   ...   66   67   68   69   70   71   72   73   ...   97




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет