Requisitos:
- 1 Tbutton
- 1 Popupmenu
Este es el código....
delphi
procedure TForm1.Button1MouseEnter(Sender: TObject); var pt : TPoint; begin //Pt.X := Button1.Left; // original //Pt.Y := Button1.Top+Button1.Height; // original Pt.X := Button1.Left+button1.Width; Pt.Y := Button1.top; pt := ClientToScreen(Pt); PopupMenu1.Popup(pt.x,pt.y); end;
Y este es el Resultado
http://www.subirimag...3bc1c5682c3bcd4
PD: disculpen la torpeza pero no se otra forma de subir la imagen..., por siaca también se las adjunto.