Тәжірибелік жұмыс №23
Тапсырма: Button компоненті арқылы сурет шығару.
Орындалуы: Пуск> Все программы> Borland Delphi 7 ортасын ашып жаңа формаға Button(1) компоненттерін алып, форманы келесі түрге келтіреміз (43-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз (Кесте 23).
Компонент |
Терезе бөлігінен Object Inspector |
Қасиеті |
Сипаттама |
Button1 |
Properties |
Caption |
Нарисовать |
43-сурет. Форма түрі.
Button1 компонентінің OnClick қасиетіне келесі кодты жазамыз:
procedure TForm1.Button1Click(Sender: TObject);
var
x,y:integer;
x2,y2:integer;
begin
Form1.Canvas.Pen.Color:=$aa1100;
Form1.Canvas.Brush.Color:=clBtnFace;
x2:=60;
y2:=80;
Form1.Canvas.RoundRect(x2,y2,x2+240,y2+160,50,50);
x:=100;
y:=80;
Form1.Canvas.Pen.Color:=$aa1100;
Form1.Canvas.Brush.Color:=$aa1100;
Form1.Canvas.Ellipse(x,y,x+160,y+160);
Form1.Canvas.Brush.Color:=$aa1100;
Form1.Canvas.Font.Color:=clBtnFace;
Form1.Canvas.Font.Style:=[fsItalic];
Form1.Canvas.Font.Size:=65;
Form1.Canvas.Font.Name:='Tahoma';
Form1.Canvas.TextOut(125,100,'hp');
end;
end.
44-сурет. Нәтиже.
Тәжірибелік жұмыс №24
Тапсырма: Дөңгелекті жылжыту бағдарламасын жасау.
Орындалуы: Пуск> Все программы> Borland Delphi 7 ортасын ашып жаңа формаға GroupBox(1), Shape(1) компоненттерін алып, форманы келесі түрге келтіреміз (45-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз (Кесте 24).
45-cурет. Форма түрі.
Form1 компонентінің OnKeyDown қасиетіне келесі кодты жазамыз:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_left then shape1.Left:=shape1.Left-5;
if shape1.Left<Groupbox1.Left then
shape1.Left:=Groupbox1.Left;
if key=vk_right then shape1.Left:=shape1.Left+5;
if shape1.Left+shape1.Width>
groupbox1.Left+Groupbox1.Width then
shape1.left:=shape1.Left-5;
if key=vk_up then shape1.Top:=shape1.Top-5;
if shape1.Top-5<Groupbox1.Top then
shape1.Top:=groupbox1.Top+5;
if key=vk_down then shape1.Top:=shape1.Top+5;
if shape1.Top+shape1.Height>
Groupbox1.Top+Groupbox1.height then
shape1.Top:=shape1.Top-5;
Form1.Caption:=Координаты центра круга: x='+inttostr(shape1.left+shape1.width div 2)+ 'y='+inttostr(shape1.Top+shape1.Height div 2);
end;
end.
46-сурет. Нәтиже.
47-сурет. Нәтиже.
48-сурет. Нәтиже.
Тәжірибелік жұмыс №25
Тапсырма: Тақ сан мен Жұп санды ажырататын бағдарлама құру
Орындалуы: Пуск> Все программы> Borland Delphi 7 ортасын ашып жаңа формаға Button(1),Edit(1), және Label(2) компоненттерін алып, форманы келесі түрге келтіреміз (49-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз.
(Кесте 25).
Компонент |
Терезе бөлігінен Object Inspector |
Қасиеті |
Сипаттама |
Button1 |
Properties |
Caption |
Анықтау |
Lable1 |
Properties |
Caption |
Санды енгізіңіз |
49-сурет. Форма түрі.
var a:integer;
Button1 компонентінің OnClick қасиетіне келесі кодты жазамыз:
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtoint(edit1.Text);
if a mod 2=1 then
label2.Caption:='Так сан'
else
label2.caption:='Жуп сан'
end;
end.
50-сурет. Нәтиже
51-сурет. Нәтиже.