Como identificar ?

Question

Ol� amigos da comunidade ... numa aplica��o possuo um menu flutuante (popup) contendo 02 itens (palavra1 e palavra2). Os sub-itens de cada item s�o criados de forma din�mica (em tempo de execu��o). De...

Adriano Santos · Answer

Como foi programado o evento onClick de cada um?
A principio uma simples vari�vel no algoritimo de cada sub-menu poder� sanar o problema, ou use a propriedade Tag de cada sub-menu, existem v�rias formas.

Ricvictor · Answer

Desde j�, obrigado pelo apoio Adriano.Vamos l� ... seguinte: Eu tenho um cadastro de profiss�es e um outro de ocupa��es. Coloquei um popup com esses dois itens (profiss�o e ocupa��o). No evento onpopup consulto essas tabelas e carrego os sub-itens para os itens acima citados. Ou seja, a cada nova inclus�o nos cadastros ... se o camarada acionar o popup, j� vai aparecer o novo item para o sub-menu a que corresponder (se profiss�o ou se ocupa��o). E o sub-item escolhido, pego o caption dele e passo como par�metro para a realiza��o de uma filtragem numa outra tabela (tabela pessoa, por exemplo). A� � que est� ... como saber qual o sub-item clicado ??Ou seja, n�o consigo visualizar essa tua id�ia justamente por a principio os sub-menus (sub-itens) n�o existam.Fico no aguardoRicardo...

Adriano Santos · Answer

Fiz um exemplo bem b�sico cara, se liga.

[b:ae8f992565]Inclus�o dos itens no menu[/b:ae8f992565]

procedure TForm1.Button1Click(Sender: TObject);
var
  I : Integer;
  Item : TMenuItem;
begin
  for I := 1 to 5 do
  begin
    Item := TMenuItem.Create(Self);
    Item.Caption := �ITEM� + IntToStr(I);
    PopupMenu1.Items[0].Add(Item);
    PopupMenu1.Items[0].Items[I-1].OnClick := WindowsClick;
  end;
end;

[b:ae8f992565]Evento WindowsClick[/b:ae8f992565]
[color=red:ae8f992565]� este cara que voc� tem que programar, ele vai pegar o caption do Item de Menu.[/color:ae8f992565]
Usei TMenuItem(Sender).Caption;, mas experimente digitar TMenuItem(Sender). e aperte CTRL+BARRA DE ESPACO vai acessar normalmente todas a propriedades do Item de Menu.

procedure TForm1.WindowsClick(Sender: TObject);
begin
  Edit1.Text := TMenuItem(Sender).Caption;
end;

Ricvictor · Answer

Porra Adriano ... voc� � o cara !!! T� funcionando que � uma maravilha ... [b:bea412e420]obrigado mesmo pelo apoio[/b:bea412e420].Grande abra�oRicardoNatal/RN...

Adriano Santos · Answer

Precisando � s� gritar....rs...Aquele abra�o...

F�rum Como identificar ? #293182