Posición mensajes (ShowMessage, Aceptar-Cancelar)

[roman]

Para el caso de ShowMessage no sé. De cualquier forma siempre prefiero usar MessageBox ya que el texto de los botones sale con el idioma que tenga la PC.

Para el caso de MessageBox conozco una forma aunque quizá no muy elegante.

Básicamente cosiste en usar la función SetWindowPos de la API de Windows para cambiar la posición. El problema es que para ello debes saber cuál es el handle del cuadro de mensaje y la función FindWindow no te sirve ya que sólo podrás llamarla después de cerrar el cuadro.

La solución que sé es definiendo un manejador para el mensaje WM_ACTIVATE. Este mensaje llega a tu aplicación cuando se activa o cuando se desactiva. En el segundo caso te dice además cuál es el handle de la ventana que se está activando.

El código es así:

interface

type
  TForm1 = class(TForm)
  private
    MsgTitle: String; // Título del mensaje
    MsgX, MsgY: Integer;  // Posición del mensaje
    procedure WMActivate(var Message: TWMActivate); message WM_ACTIVATE;
  end;

implementation

procedure TForm1.WMActivate(var Message: TWMActivate);
var
  Buffer: array[Byte] of Char;

begin
  inherited;

  if Message.Active = WA_INACTIVE then
  begin
    GetWindowText(Message.ActiveWindow, Buffer, SizeOf(Buffer));
    if Buffer = MsgTitle then
      SetWindowPos(
        Message.ActiveWindow,
        0,
        MsgX, MsgY,
        0, 0,
        SWP_NOSIZE or SWP_NOZORDER
      )
  end;
end;

end.

Cuando desees mostrar el cuadro de mensaje ajusta primero las variables MsgTitle, MsgX y MsgY:

MsgTitle := 'Mi mensaje';
MsgX := 100;
MsgY := 100;
Application.MessageBox('Hola', PChar(MsgTitle), 0);

// Saludos