Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   duda sobre popup menu en delphi (https://www.clubdelphi.com/foros/showthread.php?t=73381)

granodetoro 17-04-2011 18:10:30

duda sobre popup menu en delphi
 
bueno hola a todos...tengo una duda sobre el popup menu y quiero hacer que un popup menu aparesca con las instrucciones que le pongo cuando doy click derecho encima de un label o un button..ayuda

beginner01 17-04-2011 18:21:26

saludos.

los componentes tienen una propiedad popupmenu ahi agregas el popup menu que quieras que muestre al darle click derecho.

beginner01 17-04-2011 18:29:44

saludos.
aqui tienes otra manera de hacerlo


Código Delphi [-]
procedure TForm1.Label1Click(Sender: TObject);
  var
  p:TPoint;
  x,y:Integer;
begin
 GetCursorPos(P);
  X := P.X;
  Y := P.Y;

    popupmenu1.Popup(X, Y);
 end;

granodetoro 17-04-2011 18:34:42

muchas gracias

Caral 17-04-2011 20:02:19

Hola
Código Delphi [-]
procedure TForm1.Label1Click(Sender: TObject);
begin
  PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;
Saludos

granodetoro 18-04-2011 01:13:31

caral gracias a ti tambien

beginner01 18-04-2011 15:25:27

Cita:

Empezado por Caral (Mensaje 397394)

Código Delphi [-]
procedure TForm1.Label1Click(Sender: TObject);
begin
PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;



de esa manera es mucho mas eficiente gracias.


La franja horaria es GMT +2. Ahora son las 08:22:47.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi