Ajuda Por Favor

[dhyeggo]

Boa noite

Gostaria de saber se alguém pode me ajudar... gostaria de fazer o seguinte...

como faço para....

eu vou colocar em uma tela para calculos um combobox onde vai ter alguns produtos cadastrados,

e mais abaixo 10 campos denominados de A até J.

Cada produto da minha combobox vai usar apenas alguns campos, alguns mais outros menos, portanto como faço para que cada veiz que eu selecionar um produto na minha combobox dos 10 campos abaixo ele habilite apenas o que cada item da combobox necessitar o resto fica desabilitado...

alguém pode me ajudar por favor...

grato

att

diego

[Rafael GAGA]

Bem, pode ter forma melhor (se tiver postem aí ), mas se eu entendi direito você pode colocar no OnExit do combobox uma pesquisa SQL que posiciona a tabela no registro do produto em questão, aí é so você testar com IFs se o produto tem aquele campo ou não, se tiver você habilita o enabled do campo se não você desabilita.

[Micheus]

bom, supondo que você realmente utilize os campos de A a J, eu daria estes nomes aos componentes dos campos em questão (p.e. um edit teria o nome CampoA, um segundo CampoB e assim por diante).

Para viabilizar minha proposta, associado a cada produto, haveria um campo chamado (p.e.) CAMPOS_DO_CALCULO(VARCHAR 10) onde estariam indicados os campos que fazem parte do cálculo desejado. Por exemplo, o produto Goiabada teria seu respectivo campo CAMPOS_DO_CALCULO preenchido com 'ABDJ' enquanto que o Marmelada seria 'CDFHI'.

Deste modo, para cada evento OnChange do ComboBox, seria obtido do produto selecionado o respectivo campo CAMPOS_DO_CALCULO e de posse deste faria o seguinte:

procedure Form1.ComboBox1OnChange(...);
var
  Letra :Byte;
  Control :TControl;
begin
...
// obtém o campo CAMPOS_DO_CALCULO aqui
...
  for Letra := Ord('A') to Ord('J') do
  begin
    Control := Form1.FindComponent('Campo'+Char(Letra)) as TControl;
    if Assigned(Control) then
      Control.Enabled := Pos(Char(Letra), CAMPOS_DO_CALCULO) > 0;
  end;
end;

isto funciona, veja se lhe serve.

[dhyeggo]

grato amigo...

foi muito util esse codigo....

agradeço mesmo....

grato