RE: [delphi-br] Call Procedure

[Rubem Nascimento da Rocha]

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]

Re: [delphi-br] Call Procedure

[Joao Morais]

2009/3/13 Leonardo - NTI Equipamentos tecn...@ntiequipamentos.com.br:
 É 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;

Ao invés disto, crie a sua procedure dentro da classe do formulário.

- dentro da área private, digite o cabeçalho da procedure:
  ...
private
  procedure MudaBotao;
  ...
- pressione shift+ctrl+c para gerar o código do novo método;
- implemente o código.

Desta forma você associa sua rotina com o seu formulário, e poderá
alterar as propriedades de qualquer um dos seus respectivos
componentes.

Joao Morais