Tema: BitButton y PopUpMenu
Ver Mensaje Individual
  #3  
Antiguo 17-06-2004
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
  
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.964
Reputación: 29
delphi.com.ar Va camino a la fama
 
Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  APoint: TPoint;
begin
  with SpeedButton1.BoundsRect do
    APoint := ClientToScreen(Point(Left, Bottom));
  PopupMenu1.Popup(APoint.x, APoint.y);
end;

Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita