Fórum Passando parametro em tempo de execução #182863
18/09/2003
0
E ai galera, Beleza.
Vamos ver se nessa vocês podem me ajudar.
O problema é o seguinte, tenho um formulario com varios botoes e uma função cuja o parametro é uma classe Tbuton, preciso fazer um loop ou outra coisa qualquer que passe como parametro todos os botoes desse mesmo formulario.
Agradeço a atenção, qualquer ajuda é bem vinda.
Vamos ver se nessa vocês podem me ajudar.
O problema é o seguinte, tenho um formulario com varios botoes e uma função cuja o parametro é uma classe Tbuton, preciso fazer um loop ou outra coisa qualquer que passe como parametro todos os botoes desse mesmo formulario.
Agradeço a atenção, qualquer ajuda é bem vinda.
Edmilson
Curtir tópico
+ 0
Responder
Posts
18/09/2003
Rodrigo Coutinho
Olá amigo, tente isto:
Var iI: Integer;
Begin
For iI := 0 to Self.ComponentCount - 1 do
If Components[iI] is tButon Then
Funcao(tButon(Components[iI]).name);
End;
Var iI: Integer;
Begin
For iI := 0 to Self.ComponentCount - 1 do
If Components[iI] is tButon Then
Funcao(tButon(Components[iI]).name);
End;
Responder
Gostei + 0
18/09/2003
Rômulo Barros
Var
Cont : Integer;
Begin
For Cont := 0 To ComponentCount -1 Do
If(Components[Cont] is TButon )Then
Funcao((Components[Cont] As TButon).Name);
End; :twisted: :evil: :P :x :shock: :D
Cont : Integer;
Begin
For Cont := 0 To ComponentCount -1 Do
If(Components[Cont] is TButon )Then
Funcao((Components[Cont] As TButon).Name);
End; :twisted: :evil: :P :x :shock: :D
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)