Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 12.05.2010, 22:38   #1 (permalink)
Ins1s
Member
 
Регистрация: 14.12.2009
Сообщений: 53
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Exclamation Задачка в делфи

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

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


Ins1s вне форума   Ответить с цитированием

Старый 12.05.2010, 22:38
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Я думаю, что внутри этих ссылок вы найдете важную информацию

Задачка.
Задачка по Паскалю
Задачка (Paskal)
Задачка
задачка по Паскалю АВС

Старый 13.05.2010, 00:09   #2 (permalink)
MrSTEP
一步一步地会到目的
 
Аватар для MrSTEP
 
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,917
Записей в дневнике: 10
Сказал(а) спасибо: 139
Поблагодарили 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;
MrSTEP вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 11:43.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.