Ішкі бағдарламаның листингі:
procedure Tform1.ScrollBar1Change (Sender: TObject);
begin
if num then Shape1.Left := ScrollBar1.Position else Shape2.Left := ScrollBar1.Position
end;
procedure Tform1.ScrollBar2Change (Sender: TObject); begin
if num then Shape1.Top := ScrollBar2.Position else Shape2.Top := ScrollBar2.Position
end;
procedure Tform1.Shape1MouseMove
(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Shape1.Brush.Color := clAgua; Shape1.Brush.Color := clFuchsia; Num := True;
ScrollBar1.Position:= Shape1.Left; ScrollBar2.Position:= Shape1.Top; end;
procedure Tform1. Shape2MouseMove
(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Shape2.Brush.Color := clFuchsia; Shape2.Brush.Color := clAgua; Num := False;
ScrollBar1.Position:= Shape2.Left; ScrollBar2.Position: = Shape2.Top; end;
procedure Tform1. FormCreate (Sender: TObject); begin
num := True; end;
№ 11. Пайызды есептеу
Жұмыстың мақсаты - мына әрекеттерді орындайтын бағдарлама құру:
1. Бағдарлама іске қосылғанда пішінге үш мәтін өрісін шығару.
2. Бірінші өріске сан енгізіледі. Екінші өріске пайыз енгізіледі. Сонда «Есептеу» батырмасын басқанда үшінші өрісте санның есептелген пайызы шығуы тиіс.
Достарыңызбен бөлісу: |
