положение формы

[blackstersl]

Привет всем. У меня возник небольшой вопрос: как сделать так чтоб форма показывалась снизу по центру экрана, если form1.width := 360;. Спасибо.

[BaronTreep]

если form1.width := 360;

В общем:

form1.Left := Screen.Width div 2 - form1.width div 2;
form1.Top := Screen.Heigth - form1.Heigth;

[S@fer]

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Left:=Round((Screen.Width/2)-(Form1.Width/2));
Form1.Top:=Screen.Height-Form1.Height;
end;

BaronTreep, сорри не успел. Долго писал

[SERG1980]

procedure TForm1.FormCreate(Sender: TObject);
begin
 form1.Top:=screen.WorkAreaHeight -form1.Height;
 form1.Left:=round((screen.Width-form1.Width)/2)
end;

[BaronTreep]

ЦЦЦ - деление нацело: x div n;

ЦЦ - деление нацело на 2^n (супер быстро): x shr n;

div, в отличии от Round при делении округляет число в меньшую сторону.

Пикселов много, в данном случае незаметно, ан быстрее...

[S@fer]

div, в отличии от Round при делении округляет число в меньшую сторону.
к примеру

17 div 3 = 5
Round(17/3) = 6