PopupMenu con SpeedButton

[__cadetill]

Empezado por roman

En otras palabras, quiero que el comportamiento sea como el de un ToolButton en una ToolBar pero no me apetece usar una ToolBar.

Pero mira que haces cosas raritas, eh!!!

A ver, lo máximo que he conseguido es esto, a lo mejor te ayuda

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if SpeedButton1.GroupIndex = 0 then
    SpeedButton1.GroupIndex := 1
  else
  begin
    PopupMenu1.Popup(Self.Left + SpeedButton1.Left,
                   Self.Top + SpeedButton1.Top + (SpeedButton1.Height*2));
    SpeedButton1.GroupIndex := 0;
  end;
end;

Problema: que si haces los clics rápidos, no funciona, han de ser a camara lenta

[roman]

Empezado por cadetill

Pero mira que haces cosas raritas, eh!!!

¿Por qué raritas? ¡Sólo quiero que un speedbutton se comporte como cualquier botón decente que despliega un menú!

Empezado por cadetill

A ver, lo máximo que he conseguido es esto, a lo mejor te ayuda

Gracias, pero el comportamiento resulta errático: lo hace a veces y a veces no, o mejor dicho, lo hace una vez y depués no.

Bueno, seguiré intentando.

Te mando un saludo