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


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



бет37/38
Дата09.03.2022
өлшемі0,72 Mb.
#134799
түріПрограмма
1   ...   30   31   32   33   34   35   36   37   38
Байланысты:
11 апта Абдуллина

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

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: «Жасыл» сөзін енгіземіз

  • 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   ...   30   31   32   33   34   35   36   37   38




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

        Басты бет