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

Delphi

16/06/2005

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 pelo onclick do botão? Para saber de qual forma veio a chamda eu sei mas de qual componente eu não estou conseguindo. Alguém pode me ajudar?

Abraços
Ediane


Ediane

Ediane

Curtidas 0

Respostas

Rjun

Rjun

16/06/2005

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


GOSTEI 0
Ediane

Ediane

16/06/2005

Valeu Rogério, mas vc poderia me dar um exemplo de como fazer isso?

Obrigada!
Abraços.
Ediane


GOSTEI 0
Rjun

Rjun

16/06/2005

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]


GOSTEI 0
Ediane

Ediane

16/06/2005

Obrigada Rogério, vou tentar fazer.


Abraços
Ediane


GOSTEI 0
POSTAR