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

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

жүктеу/скачать 0,72 Mb.

бет	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;

Тура осылай 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;

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 .

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

жүктеу/скачать 0,72 Mb.

Достарыңызбен бөлісу:

1 ... 30 31 32 33 34 35 36 37 38