Работа с формой

← →
Петр (2003-01-14 09:04) [0]

Здравствуйте.

Знаю, что есть свойство у формы posScreeenCenter, которое позволяет вывести форму (или МеssageBox) в центре экрана, а как мне сделать так, чтобы модальная форма или окно диалога, которую я вывожу была центрирована относительно главной формы или любой другой формы.

В частости, интересует,как вывести окно диалога (Вызванное именно методом Application.MessageBox) по центру, относительно главной формы.

Есть, какие-нибудь API функции или мне вручную координаты просчитывать?

Решение Position:= poMainFormCenter, Position:= poOwnerFormCenter
не работает.

Форма, которую я вызываю, все равно появляется в центре экрана и не позиционируется относительно главной формы. Может быть данное решение работает если формы вручную создавать или когда приложение MDI?

Спасибо.

Position:= poMainFormCenter

или

Position:= poOwnerFormCenter

← →
A2 (2003-01-14 09:24) [1]

procedure AdjustForm(Form : TForm);
var
WorkArea : TRect;
begin
SystemParametersInfo(SPI_GETWORKAREA, 0, @WorkArea, 0);
Form.Left := WorkArea.Left;
Form.Top := WorkArea.Top;
Form.Width := WorkArea.Right - WorkArea.Left;
Form.Height := WorkArea.Bottom - WorkArea.Top;
end;
//...
procedure TMainForm.FormCreate(Sender : TObject);
begin
AdjustForm(Self);
//...
end;

← →
A2 (2003-01-14 09:27) [2]

Дополнение к предыдущему: Form.Position должно быть poDesigned.

Работа с формой Найти похожие ветки