Местоположение формы

[Stilet]

Проект в студию )

[phphel]

Да рамка то ясно, там наверное 1 пиксель то будет) не так страшно, проблема в том, что с тем кодом который щас, вообще не верно определяется позиция...

[phphel]

Form1

procedure TForm1.Button1Click(Sender: TObject);
begin
   form2.show;
end;

Form2

procedure TForm2.FormShow(Sender: TObject);
begin
left:=form1.left+form1.width;
top:=form1.Top+((form1.width-form2.width+
GetSystemMetrics(SM_CYCAPTION)) div 2);
end;

намудрил я чето с form2.top походу..

[Пепел Феникса]

интерестно, а причем тут к вертикальной позиции ширина?
у вас все верно хоть?

[phphel]

Пепел Феникса, вы про это SM_CYCAPTION?
я пробовал SM_CYSIZE...не помогло

[Пепел Феникса]

top:=form1.Top+((form1.width-form2.width+
GetSystemMetrics(SM_CYCAPTION)) div 2);

красным выделил

[phphel]

Сообщение от Пепел Феникса

top:=form1.Top+((form1.width-form2.width+
GetSystemMetrics(SM_CYCAPTION)) div 2);

красным выделил

Сори, но чет не понял...

[Пепел Феникса]

вертикальное положение определяем с помощью ширины форм, это верно?
может высота нужна?

[phphel]

left:=form1.left+form1.width;
top:=form1.Top+((form1.height-form2.height+
GetSystemMetrics(SM_CYSIZE)) div 2);


Говорю же запрограммировался))

спасибо огромное)