Как изменить положение MessageDlg

Чтобы все это проделать, создайте новый проект, нажмите F12, чтобы перейти в Редактор кода и запишите следующий код в разделе implementation:

function MessageDlg(const Msg: string; DlgType: TMsgDlgType;
          Buttons: TMsgDlgButtons; Pos: TPosition): integer;
begin
  with CreateMessageDialog(Msg, DlgType, Buttons) do
  begin
    { помещеаем форму в соответствии
    с переданной позицией }
    Position:= Pos;
    { Возвращаем результат модальной формы приложения
    (mrOk, mrCancel и т.д. }
    Result:= ShowModal;
  end;
end;

Здесь мы переопределили стандартную функцию MessageDlg и теперь мы можем ее позиционировать, просто указав это при вызове функции.

Для использования этой функции, нужно просто включить ее в свой код, как обычный метод:

procedure TForm1.Button1Click(Sender: TObject);
begin
  { Помещаем сообщение в центре главной формы }
  MessageDlg('Тестовое сообщение', mtInformation,
              [mbOk], poMainFormCenter);
end;

Вот и все. Теперь можно управлять результатом вывода диалогового окна MessageDlg. Таким образом можно переопределять и другие функции.