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

Яндекс

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