duda sobre popup menu en delphi

[granodetoro]

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]

saludos.

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

[beginner01]

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]

muchas gracias

[[Caral]]

Hola

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

Saludos

[granodetoro]

caral gracias a ti tambien

[beginner01]

Empezado por Caral

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.