1 respuesta en este tema

[monchito_elroro]

Buenas amiguitos, en esta oportunidad les quiero compatir un pequeño código que les puede ser útil... es para crear un boton con menu...

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.

Archivos adjuntos

•  4036_cadf32ff1bf87d8ac3f442b5244e63f7685f88ca.jpg   16,44KB   9 descargas

[Fenareth]

Pero qué truquito tan interesante amigo... gracias por compartirlo

Saludox !