¿Cómo crear un botón con el menú desplegable?

Question

¿Hay alguna manera de mostrar el botón de menú desplegable IE/Firefox Back button style?

Answer 1

Sure. Pon una barra de herramientas en la página. Haga clic derecho en la barra de herramientas, agregue un botón. Establezca el estilo del botón en tbsDropDown. Pon un PopupMenu en la página. Haga doble clic en PopupMenu para definir los elementos del menú. Luego, regrese al botón que creó y establezca su propiedad DropdownMenu para señalar el PopupMenu que acaba de crear.

Answer 2

Si no desea utilizar una barra de herramientas, las bibliotecas de raize (www.raize.com) y de editores exprés (www.DevExpress.com) tienen componentes que pueden hacer esto.

Answer 3

Supongo que se refiere a un botón que aparece en un menú al hacer clic.

También puede simplemente codificar manualmente su botón hacer clic para desplegar un TPopupMenu debajo de él.

Ejemplo: Elimine cualquier cosa con un TClickEvent (quizás un TButton) y un TPopupMenu en su formulario. Agregue algunos elementos de menú. A continuación, agregue el siguiente controlador de eventos OnClick:

procedure TForm86.Button1Click(Sender: TObject); 
var 
    button: TControl; 
    lowerLeft: TPoint; 
begin 
    if Sender is TControl then 
    begin 
    button := TControl(Sender); 
    lowerLeft := Point(button.Left, button.Top + Button.Height); 
    lowerLeft := ClientToScreen(lowerLeft); 
    PopupMenu1.Popup(lowerLeft.X, lowerLeft.Y); 
    end; 
end; 

Y viola! Como la magia. Podría incluirlo todo en un componente si planea reutilizarlo. Quizás incluso lo venda en línea.

Nota: Si desea un retraso, a continuación, extraer el código en otro método y luego establecer un temporizador OnClick y gire el temporizador de OnMouseLeave. Luego, si el temporizador se dispara, puede llamar al método extraído. No estoy seguro de cómo lo haría con un clic en el teclado. No sé si Firefox, etc. lo admite.

Answer 4

La respuesta de Jim es genial, pero al principio no funcionó para mí. ClientToScreen usa el método de Form86, que solo es correcto si el botón está directamente en el formulario. Debe ser el método del botón ClientToScreen que se llama, así:

procedure TForm86.Button1Click(Sender: TObject); 
var 
    button: TControl; 
    lowerLeft: TPoint; 
begin 
    if Sender is TControl then 
    begin 
    button := TControl(Sender); 
    lowerLeft := Point(0, button.Height); 
    lowerLeft := button.ClientToScreen(lowerLeft); 
    PopupMenu1.Popup(lowerLeft.X, lowerLeft.Y); 
    end; 
end; 

Esto funciona sin importar dónde está el botón.