Fórum Habilitar vários botões de acordo com IBDataSetCampo #330406
30/09/2006
0
Em um programa de controle de aulas(lições), o aluno escolhe seu nome depois a lição (não à revelia)
Na tbAlunos tem os campos Codigo, Aluno, Licao(integer)
No form1 o aluno clica em seu nome no dbgrid, e clica em btnConfirmar que chama o form2 com botões de chamadas das lições (num total de 100 lições, há um botão numerado respectivamente para cada lição), pronto.
Esses botões tem sua propriedade Enable:=False
A dúvida é como programo isso aqui:
* Habilitar todos os botões que seus números forem menor ou igual ao n° da lição(IBDataSet1LICAO) que o aluno já escolhido estar.
* os demais devem permanecer Enable:=False
Obrigado
Na tbAlunos tem os campos Codigo, Aluno, Licao(integer)
No form1 o aluno clica em seu nome no dbgrid, e clica em btnConfirmar que chama o form2 com botões de chamadas das lições (num total de 100 lições, há um botão numerado respectivamente para cada lição), pronto.
Esses botões tem sua propriedade Enable:=False
A dúvida é como programo isso aqui:
* Habilitar todos os botões que seus números forem menor ou igual ao n° da lição(IBDataSet1LICAO) que o aluno já escolhido estar.
* os demais devem permanecer Enable:=False
Obrigado
Simaops
Curtir tópico
+ 0
Responder
Posts
30/09/2006
Marco Salles
tem outras maneiras de fazer isto.. depende da abastração de quem a realiza
pensei em usar a propriedade tag do botoes... Acione esta propriedade pelo Objecto Inspectos e defina o valor igual ao numero da Lição
depois é so fazer uma ´[b:936eca3f39]varredura[/b:936eca3f39]´ , habilitando esses botoes , com a proceudere abaixo:
pensei em usar a propriedade tag do botoes... Acione esta propriedade pelo Objecto Inspectos e defina o valor igual ao numero da Lição
Botao da lição1 -->> tag1
[b:936eca3f39]Botao da liçaon -->>tagn[/b:936eca3f39]
depois é so fazer uma ´[b:936eca3f39]varredura[/b:936eca3f39]´ , habilitando esses botoes , com a proceudere abaixo:
var
i:integer;
begin
for i:=0 to formulario.ComponentCount-1 do
if Formulario.Components[i] is Tbutton then
if Tbutton(Formulario.Components[i]).Tag <= NumeroDaLicao Then
Tbutton(Formulario.Components[i]).Enabled:= true;
end;
Responder
Gostei + 0
03/10/2006
Simaops
Blz Marcao
Funcionou granfino, essa da tag aí é mais uma que aprendi e pelo que entendi os components ficam enumerados por ela.
muito obrigado.
Funcionou granfino, essa da tag aí é mais uma que aprendi e pelo que entendi os components ficam enumerados por ela.
muito obrigado.
Responder
Gostei + 0
03/10/2006
Marco Salles
fico feliz que tenha dado certo.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)