Геометриялық фигуралар шығаруға арналған форма терезесі
т үс таңдауға арналған терезе
Фигураның және форманың түсін өзгерткеннен кейінгі форма терезесі
Светафор құруға және тышқынның көрсеткішін светафордың шамына әкелгенде пайда болатын өзгерісті құруға арналған программа құру.
Форма бетіне Lable1 компонентін орналастырып, Caption қасиетін бос қалдырамыз.
Светафор шамдарының орналасуын топтау үшін Panel1 және светафордың аяғын жасау үшін Panel2 компоненттерін орналастырып, Caption қасиетін бос қалдырамыз.
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: «Жасыл» сөзін енгіземіз
|
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 .
3.
1, 2, 3 суреттер - тышқанның көрсеткішін светафордың шамына әкелгендегі форма терезесі
Достарыңызбен бөлісу: |
