Получить Messagedlg Относительно Формы

[Sascha]

Получить MessageDlg относительно формы
В этом примере показано создание диалогового окна сообщений относительно центра Form1.

procedure TForm1.Button1Click(Sender: TObject);
var
  MyForm: TForm;
begin
  MyForm:=CreateMessageDialog('Это пример', mtInformation, [mbOk]);
  with MyForm do
  begin
    Height:=130;
    Width:=150;
    Left:=Trunc((Form1.Width-Width)/2)+Form1.Left;
    Top:=Trunc((Form1.Height-Height)/2)+Form1.Top;;
    ShowModal;
  end;
end;