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.