расположение объекта по центру формы

[skalt12]

Доброго всем дня. .Вопрос такой, у меня есть приложение:

form1.Height := Screen.Height;
form1.Width := Screen.Width;
form1.BorderStyle := bsNone;

на форме лежит TMemo... как мне расположить этот TMemo, непосредственно в центральной части формы?

[W0LF]

  Memo1.Left := (Form1.ClientWidth - Memo1.Width)  div 2;
  Memo1.Top := (Form1.ClientHeight - Memo1.Height - (Memo1.Height div 3)) div 2;

Вот, что-то насчитал, не знаю, но вроде ровно...)

[skalt12]

Сообщение от W0LF

  Memo1.Left := (Form1.ClientWidth - Memo1.Width)  div 2;
  Memo1.Top := (Form1.ClientHeight - Memo1.Height - (Memo1.Height div 3)) div 2;

Вот, что-то насчитал, не знаю, но вроде ровно...)

блин, точно.. дивом же делить.. а я мозг сломал - забыл, ёпрст.. спасибо!

[Greek9000]

можно Anchors поотключать (обычно это св-во равно [akLeft, akTop]) и компонент будет выравниваться нужным образом и делить ничего не надо. Это бывает удобно когда у формы ресайз не отключён. В Вашем случае способ применим, но применять его не так удобно, как расчёт ручками. Тем не менее может кому-нибудь пригодится