Como saber qual componente chamou o form?dbedit ou bot�o?

Question

Ol� Pessoal,N�o sei se vou conseguir me expressar muito bem, mas a d�vida � a seguinte: preciso identificar qual componente chamou o form, se foi acionado pelo onexit de uma dbedit ou se foi acionado ...

Rjun · Answer

N�o sei se existe uma forma direta, mas voc� poderia passar um parametro pelo show informando qual objeto chamou o form....

Ediane · Answer

Valeu Rog�rio, mas vc poderia me dar um exemplo de como fazer isso?Obrigada!Abra�os.Ediane...

Rjun · Answer

N�o sei se essa � a melhor op��o, mas acho que funciona.

No form que ira ser chamado, crie um m�todo publico que receba um TObject como parametro. Nele voc� faz suas verifica��es e exibe o form.

procedure TForm2.MostraForm(Sender: TObject);
begin
  if (Sender is TButton) then
     // coloque aqui seu codigo;

  if (Sender is TEdit) then
     // Coloque aqui seu codigo;

  // Agora voc� chama o form;
  Show();
end;

Para chamar o form, voc� faz:

Form2.MostraForm(Button1);

[/code]

Ediane · Answer

Obrigada Rog�rio, vou tentar fazer.Abra�osEdiane...

F�rum Como saber qual componente chamou o form?dbedit ou bot�o? #284943