¿como hacer menu tipo web delphi popmenu toolbar?

[JXJ]

quiero hacer un menu desplegable.
al pasar el cursor sobre un toolbutton
de una toolbar.

algo asi como los menus web.
que muestran el submenu cuando pasas el cursor encima y se cierran cuando pierden el foco del cursor.
y el submenu siempre esta debajo de el boton

hay 2 eventos que he probado y no me funcionan .. por que hacen el popup . por encima del boton.
necesito algo asi. http://www.likno.com/

Código Delphi [-]
procedure TPrincipalF.ToolButton3MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  ppmEmpresa.Popup(X, Y);
end;

procedure TPrincipalF.ToolButton3MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ppmEmpresa.Popup(X, Y);
end;

gracias por su atencion.

[heroe]

Tal vez puedes simular el comportamiento del submenu con un frame para cada submenu. En el momento en que pasas el mouse por encima aparece el Frame. Es una idea, pruebala.

[[ElDioni]]

Hola,

si con tu código dices que funciona pero que se queda encima del botón por el que has pasado, sumale a las coordenadas donde haces que se muestre el submenu el height del toolbar o del botón.

Código Delphi [-]
ppmEmpresa.Popup(X, Y+toolbar.height);

Saludos.

[heroe]

Puedes usar un timer para que pasado cierto tiempo de esconda el frame. Como dije es una idea, que puedes combinar con otras ideas para lograr el efecto deseado.