Позициирование формы

[Grandistok]

Здравствуйте уважаемые гуру. Вот столкнулся с такой проблеммой:

по нажатии кнопки создаю форму таким образом

FormSelectBase:=TForm.Create(self);
FormSelectBase.Name :='FormSelectBase';
FormSelectBase.Width:=175;
FormSelectBase.Height:=175;
FormSelectBase.BorderStyle:=bsSizeToolWin;
FormSelectBase.BringToFront;
FormSelectBase.Show;
FormSelectBase.Top:=Screen.ActiveForm.Top+150;
FormSelectBase.Left:=Screen.ActiveForm.Left+200;
FormSelectBase.OnClose:=CloseFormSelectBase;

Procedure TMain.CloseFormSelectBase(Sender: TObject; var Action: TCloseAction);
var
Com:TComponent;
begin
Com:=FindComponent('FormSelectBase');
(com as TForm).free;
end;

После создания я хочу поставть форму в определеннле место но она становится в него с маленьким сдвигом по горизонтали и вертикали, плюс после закрытия и повторного вызова она сдвигается еще немного т.е. распологается каскадом. Как можно избавиться от этого?

[mihali4]

Ну, во-первых, и ваш вариант никакого сдвига у меня не давал.
Единственное - позиция совсем не та.
Почему ?
Очень просто:

FormSelectBase:=TForm.Create(self);
FormSelectBase.Name :='FormSelectBase';
FormSelectBase.Width:=175;
FormSelectBase.Height:=175;
FormSelectBase.BorderStyle:=bsSizeToolWin;
FormSelectBase.Top:=Screen.ActiveForm.Top+150;
FormSelectBase.Left:=Screen.ActiveForm.Left+200;
FormSelectBase.Show;
FormSelectBase.BringToFront;
//FormSelectBase.Top:=Screen.ActiveForm.Top+150;
//FormSelectBase.Left:=Screen.ActiveForm.Left+200;
FormSelectBase.OnClose:=CloseFormSelectBase;

[Sibedir]

Действительно, никакого смещения.

А во-вторых. Зачем вот это?

FormSelectBase.OnClose:=CloseFormSelectBase;

...

Procedure TMain.CloseFormSelectBase(Sender: TObject; var Action: TCloseAction);
var
Com:TComponent;
begin
Com:=FindComponent('FormSelectBase');
(com as TForm).free;
end;

[Grandistok]

О боги мне стыдно зарекался писать код в 4 часа утра но увлекаюсь и немогу остановиться потом вот пристаю к вам с глупыми вопросами

Com:=FindComponent('FormSelectBase');
(com as TForm).free;

заменил на

Action := caFree;

И форма перестала сдвигаться

А вот с позициированием все равно не получается. Попытыюсь обьяснить:
Например у мне нужно поставить созданную форму в координаты 200,200 моего основного окна

FormSelectBase.Top:=200;
FormSelectBase.Left:=200;

И она выводится в координаты 200,200 ЭКРАНА. А мне нужно 200,200 относительно МОЙ ФОРМЫ (тк пользователь может таскать форму по экрану куда угодно и я не знаю ее экранных координат). Пробовал делать вот так (нашел в интернете)

FormSelectBase.Top:=ClientToScreen(Point(200,200)).x;
FormSelectBase.Left:=ClientToScreen(Point(200,200)).y;

Но результат аховый выводимая форма попадает совсем не туда куда я хочу причем ее место на экране в зависимости от положения основного окна вообще непонятно откуда берется
Подскажите пожалуйста как привязать позицию выводимой формы к определенной координате в окне приложения?

[mihali4]

FormSelectBase.Top:=FMain.Top+200;
FormSelectBase.Left:=FMain.Left+200;
FormSelectBase.Show;
FormSelectBase.BringToFront;

[Grandistok]

Спасибо вам всем большое, как обычно все гениальное оказалось просто