12.05.2010, 22:38 | #1 (permalink) |
Member
Регистрация: 14.12.2009
Сообщений: 53
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задачка в делфи
На форме располагаются: две панели для вывода размера формы (положения формы на экране) и две панели с соответствующими надписями «Ширина» и «Высота» (Х и У); че-тыре кнопки , , , ; радиопереключатель на два положения; редактор Edit и кнопка Close. Нажатие кнопок со стрелками приводит к соответствующему изменению размера формы или перемещению формы по пространству экрана, что отображается на панелях. Вид перемещения задается радиопереключателем и отображается в редакторе. Кнопка Close заканчивает программу. |
12.05.2010, 22:38 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Я думаю, что внутри этих ссылок вы найдете важную информацию Задачка. Задачка по Паскалю Задачка (Paskal) Задачка задачка по Паскалю АВС |
13.05.2010, 00:09 | #2 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
По порядку: Две панели с положением формы: объект 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; |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|