Ќазаќстан республикасы бiлiм жјне єылым министрлiгi


Геометриялық фигуралар шығаруға арналған форма терезесі



бет26/28
Дата07.06.2023
өлшемі0,69 Mb.
#99414
түріДиплом
1   ...   20   21   22   23   24   25   26   27   28
Геометриялық фигуралар шығаруға арналған форма терезесі




т үс таңдауға арналған терезе
Фигураның және форманың түсін өзгерткеннен кейінгі форма терезесі


Светафор құруға және тышқынның көрсеткішін светафордың шамына әкелгенде пайда болатын өзгерісті құруға арналған программа құру.



  1. Форма бетіне Lable1 компонентін орналастырып, Caption қасиетін бос қалдырамыз.

  2. Светафор шамдарының орналасуын топтау үшін Panel1 және светафордың аяғын жасау үшін Panel2 компоненттерін орналастырып, Caption қасиетін бос қалдырамыз.

  3. Panel1 компонентінің үстіне үш Shape компонентін орналастырып, төмендегі кестедегідей қасиеттеріне өзгертулер енгіземі:

    Компоненттер

    Объектілер инспекторы терезесіне енгізілетін өзгертулер

    Shape1:ТShape

    Shape: stCircle мәнін қабылдаймыз
    Bruch-Color: clGray түсін таңдаймыз
    ShowHint: True мәнін қабылдаймыз
    Hint: «Қызыл» сөзін енгіземіз

    Shape2:ТShape

    Shape: stCircle мәнін қабылдаймыз
    Bruch-Color: clGray түсін таңдаймыз
    ShowHint: True мәнін қабылдаймыз
    Hint: «Сары» сөзін енгіземіз

    Shape3:ТShape

    Shape: stCircle мәнін қабылдаймыз
    Bruch-Color: clGray түсін таңдаймыз
    ShowHint: True мәнін қабылдаймыз
    Hint: «Жасыл» сөзін енгіземіз

  4. Shape1 компонентін белгілеп алып, объектілер инспекторы терезесіндегі Events қосымша бетін ашамыз. OnMoveMouse өрісіне екі рет басып, ашылған оқиға өңдеуші процедурасына төмендегі программа мәтінін енгіземіз:

procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
shape1.Brush.Color:=clred;
label1.Caption:='ТОҚТА';
label1.Color:=clred;
shape2.Brush.Color:=clGray;
shape3.Brush.Color:=clGray;
end;

  1. Тура осылай Shape2 компонентінің Shape1MouseMove оқиға өңдеуші процедурасына төмендегі программа мәтінін енгіземіз:

procedure TForm1.Shape2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
shape2.Brush.Color:=clyellow;
label1.Caption:='ДАЙЫНДАЛ';
label1.Color:=clyellow;
shape1.Brush.Color:=clGray;
shape3.Brush.Color:=clGray;
end;

  1. Shape3 компонентінің Shape1MouseMove оқиға өңдеуші процедурасына төмендегі программа мәтінін енгіземіз:

procedure TForm1.Shape3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
shape3.Brush.Color:=clGreen;
label1.Caption:='ЖҮР';
label1.Color:=clgreen;
shape1.Brush.Color:=clGray;
shape2.Brush.Color:=clGray;
end;
П рограмманы сақтап орындаймыз. Программаның орындалу нәтижесі келесі суреттерде көрсетілген.
1.

2 .


3.

1, 2, 3 суреттер - тышқанның көрсеткішін светафордың шамына әкелгендегі форма терезесі




Достарыңызбен бөлісу:
1   ...   20   21   22   23   24   25   26   27   28




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

    Басты бет