Capturar Ultimo Componente Acionado Delphi

[adilsonpazzini]

Capturar Ultimo Componente Acionado Delphi , cheguei a ver algo como

Pegar nome do Formulário -> Screen.ActiveForm.Name

e o componenete que o foco parou - > Screen.ActiveForm.ActiveControl.Name ,

mais o que eu queria mesmo era saber qual foi o ultimo botão acionado , até o problema ref ao foco , seria que

eu utilizo o componente speedButton . e o mesmo nao fica com o foco nele e por isso nao mostra nessa variavel

Screen.ActiveForm.ActiveControl.Name , queria saber se existe alguma forma de conseguir pegar qual foi o botao / ou

procedimento executado , pois estou montando um arquivo de log e preciso saber qual foi o evendo gerador do erro .

Sem mais, Adilson PAZZINI

[jocimarspi]

Não conheço nenhuma forma automática de fazer isso. Mas aqui está uma idéia.

...


private

   ultimoBotao :TOBject;


   function FoiUltimoBotaoAtivado(obj :TObject) :Boolean;



public


...


function TSeuFormulario.FoiUltimoBotao(obj :TObject) :Boolean;

begin

   result := obj = ultimoBotao;

end;


procedure TSeuFormulario.Botao1Click(Sender :TOBject);

begin

   if FoiUltimoBotaoAtivado() then

      ShowMessage('Botão 1 foi o ultimo botao ativo');


   ultimoBotao := Sender;

end;


procedure TSeuFormulario.Botao2Click(Sender :TOBject);

begin

   if FoiUltimoBotaoAtivado() then

      ShowMessage('Botão 2 foi o ultimo botao ativo');


   ultimoBotao := Sender;

end;


....

[EMBarbosa]

Acho que o que você deseja está relacionado com fazer log da Exception. Pesquise sobre fazer log do CallStack.

[adilsonpazzini]

é isso mesmo . pra poder pegar qual foi o ultimo procedimento acionado . pois as vezes os usuarios em vez de clicar no botao pra executalo . colocar as teclas de atallho ... e ai q nao consigo saber qual foi o ultimo botao acionado .

[EMBarbosa]

Você usa os componentes JEDI? Se sim, tente essa resposta:

http://stackoverflow.com/a/2337111/460775

ou o artigo seguinte

http://robstechcorner.blogspot.com/2009/04/finding-hard-to-reproduce-errors.html