F�rum PopupMenu, busca proriedades do componente clicado #398289

28/03/2011

Boa tarde ! Eu preciso de uma luz no fim do t�nio, � o seguinte estou criando componente Timage em tempo de execu��o dentro do componente GridPanel , e coloquei um popupMenu ligado nos Timages, eu preciso que ao clicar com o botao direito do mouse em cima do componente e ao abrir o meu popmenu retorne o name do componente que esta clicado. obrigado !!!

Christian Tito

Curtir t�pico

+ 0

Responder

Posts

28/03/2011

Andr� Silveira

Coloca como est� criando os componentes para facilitar a solu��o do seu problema.
Fiz um exemplo usando um panel e botoes e funcionou:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    pop: TPopupMenu;
    Button1: TButton;
    Panel1: TPanel;
    mniNome1: TMenuItem;
    mniBotao1: TMenuItem;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure peganome(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
  Botao : TButton;
begin
  for i := 0 to 10 do
  begin
    Botao := TButton.Create(Self);
    Botao.Name := 'Botao'+IntToStr(i);
    Botao.Parent := Panel1;
    Botao.Top := 10 + 30 * i;
    Botao.PopupMenu := pop;
    Botao.OnContextPopup := PegaNome;
  end;
end;

procedure TForm1.peganome(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin
  pop.Items[0].Caption := TButton(Sender).Caption;
end;

end.

Tenta adaptar de acordo com os seus componentes.

Responder

Gostei + 0

29/03/2011

Christian Tito

Bom dia !! Deu certinho o seu procedimento muito obrigado Andr�.

Responder

Gostei + 0