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 суреттер - тышқанның көрсеткішін светафордың шамына әкелгендегі форма терезесі
Достарыңызбен бөлісу: |
