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-сурет. Нәтиже.

Дата добавления: 2015-11-16