Tema: Desplegar por código el menú de sistema de una ventana
Ver Mensaje Individual
  #3  
Antiguo 05-05-2005
Avatar de roman
roman roman is offline
Moderador
  
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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
Responder Con Cita