Desplegar por código el menú de sistema de una ventana

[roman]

El siguiente código te desplegará el menú en la esquina superior izquierda de un botón:

Código Delphi [-]
var
  Pt: TPoint;

begin
  Pt := Point(Button1.Left, Button1.Top);
  Pt := ClientToScreen(Pt);

  SendMessage(Handle, $0313, 0, LParam(PointToSmallPoint(Pt)));
end;

// Saludos

[roman]

La solución de Neftalí fue la primera que pensé pero, al menos en mi caso, aunque sí muestra el menú, no responde a los comandos.

// Saludos

[Neftali [Germán.Estévez]]

Empezado por roman

al menos en mi caso, aunque sí muestra el menú, no responde a los comandos.

Cierto en mi caso tampoco... ?¿?¿? Curioso, no me había dado cuenta.
Revisando la API TrackPopupMenu dice lo siguiente:

hWnd
Identifies the window that owns the shortcut menu. This window receives all messages from the menu. The window does not receive a WM_COMMAND message from the menu until the function returns.

y ésto:
Remarks
Accelerator keystrokes that select items from the window menu are translated into WM_SYSCOMMAND messages.


Por lo tanto si el Handle que se le pasa como parámetro recibe el mensaje, se supone que se puede capturar ese mensaje y enviarlo a la cola de mensajes para que se procese.

Define en la parte privada el método:

Código Delphi [-]
  procedure WMCommand(var msg: TWMCommand); message WM_COMMAND;
  ...
  
  // Y su implementacion...
  
  procedure TForm1.WMCommand(var msg: TWMCommand);
  begin
    PostMessage(handle, WM_SYSCOMMAND, TMessage(msg).WParam, TMessage(msg).LParam);
    inherited;
  end;

Funciona, pero la cosa se va complicando... La solución de Román como mínimo es más corta y funciona igual de bien.

[roman]

Empezado por Neftali

Funciona, pero la cosa se va complicando

Je, je. Ya había llegado a esa conclusión. La otra solución no es mía sino que la acabo de ver buscando en los foros de Borland. Lo que sí es que parece ser que el mensaje $0313 no está documentado en el SDK de Windows.

// Saludos