Задача: Есть желание показывать диалоги по центрируя их относительно компонент из которых они вызываются.
Показывать диалоги по центру формы не всегда красиво.
Допустим, у меня есть форма, на которой два грида, занимающие по ширине формы равное пространство. Когда я нажимаю кнопку "Удалить" для определенного грида, то я хочу, чтобы сообщение "Удалить запись?" возникало посередине (к примеру) соответствующего грида.
Написал отдельную процедурку, которую вызываю перед показом формы:
| Код |
procedure SetCenterPosition(AParent: TWinControl; AModal: TForm);
var
MyPoint: TPoint;
begin
if Assigned(AParent) then
begin
MyPoint := AParent.ClientToScreen(Point(AParent.Left, AParent.Top));
AModal.Left := (MyPoint.X + AParent.Width div 2) - (AModal.Width div 2);
AModal.Top := (MyPoint.Y + AParent.Height div 2) - (AModal.Height div 2);
end
else
AModal.Position := poOwnerFormCenter;
end;
|
Но приглядевших, вижу, что не совсем она и по центру, как мне хотелось бы.
Написал тестовый код для проверки моих опасений:
| Код |
procedure TForm1.Button1Click(Sender: TObject);
var
P: TPoint;
begin
Form2 := TForm2.Create(Self);
P := Button1.ClientToScreen(Point(Button1.Left, Button1.Top));
Form2.Left := P.X;
Form2.Top := P.Y;
Form2.ShowModal;
end;
|
По идее, левый верхний край формы должен совпадать с координатами кнопки. Но он ниже и правее.
Помогите решить задачу. |
