RadioGroup por Referencia

Delphi

27/06/2005

Ola Amigos ,
Gostaria de acessar a propriedade ItemIndex de um radiogroup usando uma funcao genérica pois utilizo muito a mesma em diversos relatorios e forms.
Só que não estou tendo sucesso.
Se alguem puder me ajudar , agradeço antecipadamente.
Segue a função conforme achei que deveria ser escrita , mas não deu certo.
Desde já sou grato.


procedure SelecaoEstoqueVendido(Sender: TObject);
begin
((Sender as TForm).FindComponent(´SpeedButtonTodos´) as TSpeedButton).Enabled := ((Sender as TForm).FindComponent(´RadioGroupEstoqueVendido´ as TRadioGroup).ItemIndex < 2;
end;


Emerson Azevedo

Emerson Azevedo

Curtidas 0

Respostas

Caninha51

Caninha51

27/06/2005

Em todos os forms tem um SpeedButton e um RadioGroup exatamente com estes nomes?

Como vc tá chamando este procedimento?

Se for assim naum vejo razão para não funcionar...

SelecaoEstoqueVendido(NomeDoFormQueEstaChamando);


Falow

Caninha51


GOSTEI 0
POSTAR