Parametro no OnClick MenuPopup

Question

Ol� a todos ,Estou com um probleminha aqui, j� fiz uma busca no forum mas n�o consigo achar uma solu��o pra este problema.O seguinte: estou fazendo todos os procedimento pra criar em tempo de execu��o...

Ivanh · Answer

Cria um array com a informacao que vc precisa, e no tag do item de menu criado coloca o indice pra localizar no array...

Carlosceuma · Answer

Ol� ivan,� este caminho que imaginei, cria uma array mas esta do Tag que estou me encrencando um pouco.mas verei se desenrrolo aqui, ficando de p� qualquer exemplo que me ajude :lol:...

Carlosceuma · Answer

Ainda t� precisando de ajuda.Algu�m pode me dar uma dica pra resolver este problema no menu popup?:(...

Massuda · Answer

N�o sei se entendi direito o que voc� quer, mas parece que voc� tem um menu com os anos e quer que cada menuitem dispare uma rotina que tem como par�metro o ano.

Acho que voc� precisa de algo assim:

// criar os menuitens

Table1.First;
while not Table1.Eof do begin

  Item := TMenuItem.Create(PopupMenu1); // "Popup1" ou o nome de seu menu
  Item.Caption := Table1Ano.AsString;
  // se Table1Ano for Date ou DateTime, precisa extrair o ano,
  // mas vou assumir que Table1Ano � Integer ou coisa parecida
  Item.Tag := Table1Ano.AsInteger; 
  Item.OnClick := ItemComAnoClick;

  PopupMenu1.Items.Add(Item);

  Table1.Next;
end;

// exemplo do tratador do OnClick
// TMeuForm � o form onde est� o menu

procedure TMeuForm.ItemComAnoClick(Sender: TObject);
var
  Item: TMenuItem
  Ano: Integer;
begin
  Item := Sender as TMenuItem;
  Ano := Item.Tag;

  // faz alguma coisa com o Ano 
end;

F�rum Parametro no OnClick MenuPopup #267716