RadioGroup por Referencia
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;
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
Curtidas 0
Respostas
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
Como vc tá chamando este procedimento?
Se for assim naum vejo razão para não funcionar...
SelecaoEstoqueVendido(NomeDoFormQueEstaChamando);
Falow
Caninha51
GOSTEI 0