[[Ohcan]]

Ya sé que es un hilo un poco antiguo, pero me he topado con él buscando sobre algo parecido a lo que plantea Roman... y yo lo tengo resuelto (creo).

Si tenemos un formulario (wPrincipal), un SpeedButton (btPruebas) y un PopupMenu (pmPruebas) al que le he añadido un par de Items..

Código Delphi [-]
//OnClick del botón
procedure TwPrincipal.btPruebaClick(Sender: TObject); 
var
  Punto:TPoint;
begin
  if btPrueba.Down then
    begin
      GetCursorPos(Punto);
      pmPrueba.Popup(Punto.X,Punto.Y);
      btPrueba.Down := False;
    end;
end;

//Se lo asigno al OnClick de ambos Items:
procedure TwPrincipal.ItemA1Click(Sender: TObject); 
begin
  //Sólo para que hagan algo
  ShowMessage('Item: ' + TComponent(Sender).Name);
  //Aquí puede ponerse btPrueba.Down := False; para que no se levante ...
end;

Creo que esto es lo que se busca...

Yo, partiendo de aquí, tengo otro problemilla... pero primero intentaré buscar (¡lo que se aprende buscando!) y si no consigo nada ya postearé un hilo para buscar ayuda