procedure MudaBotao(Objeto: TObject);
begin
if Objeto is TButton then
TButton(Objeto).Caption := 'Help'
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
MudaBotao(Sender)
end;
Para entender esse código, informe-se sobre typecasting no próprio do help do
Delphi.
Boa sorte.
Sds.
To: delphi-br@yahoogrupos.com.br
From: tecn...@ntiequipamentos.com.br
Date: Fri, 13 Mar 2009 10:49:35 -0300
Subject: [delphi-br] Call Procedure
Olá a todos.
Preciso de ajuda de iniciante com uma Procedure.
É o seguinte criei uma Procedure para executar uma tarefa varias vezes... só
que quando coloco ela para alterar um valor de um objeto, como um botão por
exemplo ela dá erro.
Tem algum lugar que preciso associar a procedure aos objetos?
Um exemplo do que quero fazer:
procedure mudabotao;
begin
Button1.Caption := 'Help';
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
mudabotao
end;
end.
Obrigado pela ajuda
Leonardo Moreira Alves
Se os engenheiros lessem o manual, o mundo seria um lugar melhor.
Andrew S. Grove - CEO, Intel Corporation, 1999
linux user #333777
[As partes desta mensagem que não continham texto foram removidas]
_
Cansado de espaço para só 50 fotos? Conheça o Spaces, o site de relacionamentos
com até 6,000 fotos!
http://www.amigosdomessenger.com.br
[As partes desta mensagem que não continham texto foram removidas]