Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как допустим кнопку программно отцентровать в форме по центру (вс


Юный_программер ©   (2003-01-29 19:46:00) 

Как допустим кнопку программно отцентровать в форме по центру (все равно по вертикали или по горизонтали)?


Юрий Зотов   (2003-01-30 09:17:00) [1]

Просто отцентрируйте кнопку в design-time, а в ее свойcтвах уберите все Anchors"ы.


MXA   (2003-01-30 00:44:00) [2]

2 gsu © (29.01.03 20:04)(>> Математику в школе учили?)
это он не тебе - обрати внимание на время

2 gsu © (29.01.03 21:37)
>Button1.Top:=(ClientHeight div 2)-(Button1.Height div 2);
исправляйся дальше - подумай, почему твой вариант хуже, чем
Button1.Top:=(ClientHeight - Button1.Height) div 2;


gsu   (2003-01-29 21:37:00) [3]

Кстати, исправляюсь окончательно:
Button1.Top:=(ClientHeight div 2)-(Button1.Height div 2);
Button1.Left:=(ClientWidth div 2)-(Button1.Width div 2);


gsu   (2003-01-29 21:26:00) [4]

ну перепутал h на w, виноват, но без задней мысли (-:|~


Александр Спелицин   (2003-01-29 21:00:00) [5]

2 Шарик:
Все верно, но только с небольшими изменениями:
Button1.Left := (Form1.Width - Button1.Width) div 2; //по горизонтали
Button1.Top := (Form1.Height - Button1.Height) div 2; //по вертикали


Sharik_212   (2003-01-29 20:39:00) [6]

в процедуре по обработке события onResize в форме пишешь
Button1.Left:=(Form1.Width+Button1.Width) div 2; //по горизонтали
или
Button1.Top:=(Form1.Height+Button1.Height) div 2; //по вертикали

P.S. для "математиков" - не суди и не будешь судим.


gsu   (2003-01-29 20:04:00) [7]

>> Математику в школе учили?
учил
>> Хелп по TButton и TForm читали?
читал
>> Ну и что, все равно не понятно ?
Да, непонятно, как же жить дальше (-:|~


Clickmaker   (2003-01-29 20:01:00) [8]

Математику в школе учили? Хелп по TButton и TForm читали? Ну и что, все равно не понятно ?


gsu   (2003-01-29 20:00:00) [9]

b.left:=(height div 2)-(b.height div 2)


Наверх

Титульная страница Поиск, карта сайта Написать письмо