Olá pessoal.
Como faço para obter o valor da tag de uma TActionClientItem.
Explicando melhor, constui o menu com ActionManager, ligo ao ActionMainMenuBar.
No ActionMainMenuBar, criei as opção do menu.
Existem três opções deste menu que executam a mesma Action.
Gostaria de saber, como identificar qual a opção
do menu (TActionClientItem) fez a chamada a Action ?
procedure TTInicial.Action1Execute(Sender: TObject);
var tag_w : integer;
begin
// Aqui preciso identificar qual a tag da
opção do menu que acionou a ação.
// Pois terei três opções do menu que acionarão a mesma Action, porém
// dependendo de qual a chamou, terei alguns controles diferentes.
tag_w := TAction(Sender). ...... .Tag;
MessageDlg('Atenção...tag..'+IntTostr(tag_w),mtInformation,[mbOK],0);
end;
Grato
Márcio
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
