Задачка в делфи
 

Помогите пожалуйста решить задачу!!

На форме располагаются: две панели для вывода размера формы (положения формы на экране) и две панели с соответствующими надписями «Ширина» и «Высота» (Х и У); че-тыре кнопки , , , ; радиопереключатель на два положения; редактор Edit и кнопка Close. Нажатие кнопок со стрелками приводит к соответствующему изменению размера формы или перемещению формы по пространству экрана, что отображается на панелях. Вид перемещения задается радиопереключателем и отображается в редакторе. Кнопка Close заканчивает программу.


:tehnari_ru_117:

По порядку: Две панели с положением формы: объект Form1, событие OnMove (есть ли такое, сейчас не помню), пишете код:
Panel1.Caption:=IntToStr(Form1.Top);
Panel2.Caption:=IntToStr(Form1.Left);
Панели Ширина и Высота: объект Form1, событие OnResize, пишете код:
Panel3.Caption:='Высота ' + IntToStr(Form1.Height);
Panel4.Caption:='Ширина ' + IntToStr(Form1.Width);
Радиопереключатель: для него надо описать глобальную переменную булевского типа, например, flag. Далее - объект RadioGroup1, событие OnClick, пишете код:
Case RadioGroup1.ItemIndex of
0: flag:=false;
1: flag:=true;
end;
Далее, код для кнопки Влево (если эти иероглифы показывают именно направления):
Case flag of
false: Form1.Left:=Form1.Left-5;
true: Form1.Width:=Form1.Width-5;
end;
Аналогично Вправо:
Case flag of
false: Form1.Left:=Form1.Left+5;
true: Form1.Width:=Form1.Width+5;
end;
Вверх:
Case flag of
false: Form1.Top:=Form1.Top-5;
true: Form1.Height:=Form1.Height-5;
end;
Вниз:
Case flag of
false: Form1.Top:=Form1.Top+5;
true: Form1.Height:=Form1.Height+5;
end;
Кнопка Close:
Application.Terminate;