Leodinei,
A sua procedure deverá ter o parâmetro (Sender: TObject), caso
contrário não irá funcionar.
Ex:
Procedure TForm1.Teste(Sender: TObject);
Begin
ShowMessage('Olá!!!');
End;
procedure TForm1.FormCreate(Sender: TObject);
begin
Button1.OnClick := Teste;
end;
Atenciosamente,
Douglas Uesato
________________________________________
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de Leodinei Bielak
Enviada em: segunda-feira, 4 de dezembro de 2006 15:35
Para: delphi-br
Assunto: [SPAM] [delphi-br] Definir procedure para um evento usando código
Olá. Eu estou querendo escrever uma procedure e conectá-la com o
evento do meu objeto. Eu estou usando tu dentro de uma unit e o
delphi não aceita.
Dá a mensagem de que um é um method pointer e o outro regular procedure.
A questão é como eu converto de um para o outro?
Valeu.
--
Leodinei Bielak
"In theory, there is no difference between theory and practice.
In practice, however......"
