Executar Evento De Um Componente.

[schaukoski]

Olá... Estou com uma dúvida.

Eu tenho um DBEDIT, que no evento ONCHANGE dele, eu tenho uma rotina.

Como eu faço para executar essa rotina, de outro lugar?

exemplo..

Eu estou em um form..... lá tem dois botoes, o de cadastrar, e o de limpar.

No evento ONCLICK dos dois botoes eu tenho rotinas, e eu adicionei na procedure de formcreate, BOTAOLIMPAR.CLICK;

para executar a rotina que está no botao limpar.. tudobem.

O problema é executar o ONCHANGE do DBEDIT..

eu tenei DBEDIT1.ONCHANGE; mas não é assim que se usa...

Eu poderia também , copiar toda a rotina do onchange do meu dbedit, aonde eu quero, mas ficaria muito grande.... então.. se alguém souber!.

Obrigado!.

[Churc]

opa

Tenta assim

DBEdit1Change(Self);

[schaukoski]

Perfeito.

Mas o que ele faz esse comando?

ele dá um change nele mesmo, ( matendo o valor de.text que estava ), para executar o evento?!

10!!

Obrigado!!!

[Churc]

opa

Sender, se formos traduzir ao pé da letra seria o Enviador...

O Enviador "carrega" quem chamou determinado evento, logo,

conseguimos então descobrir qual componente solicitou determinada

ação, e com isso utilizar essa informação para as mais diversas

funcionalidades.

No seu caso, não faz diferença o uso do Sender, ele é apenas pra

completar o uso da procedure, desde que se você enviar um Parent

ao invés de Self vai dar na mesma...

Um exemplo besta de como poderia ser utilizado o Sender seria

assim exemplo,

Vamos supor que você tenha no seu Form 3 botões, no botão

1 a Tag dele é 1, no botão 2 a tag é 2 e no botão 3 a tag é 3

procedure CheckButton(Sender: TObject);

begin

if Sender.ClassType=TButton then

begin

ShowMessage('A tag do botão é ' + InttoStr((Sender as TButton).Tag));

ShowMessage('O nome do botão é ' + (Sender as TButton).Name);

end

else

ShowMessage('Não é um botão');

end;

Ai pra usar

CheckButton(Button1);

CheckButton(Edit1); //Vai retornar a mensagem que não é um botão

Você pode adquirir qualquer propriedade do objeto assim...

entendeu mais ou menos?

abs