Dificuldade com GroupBox
09/12/2003
0
Senhores, tenho 1 groupbox e dentro dele 14 checkbox contendo nomes de escolas, e tenho 1 tabela contendo :
codigo +
escola a25
data date
Tenho que ao clicar no CheckBox := checked em todas que quizer
gravar dentro de minha tabela com um loop todos os captions dos CheckBox := checked.
alguém sabe se tem como gravar todas com uma rotina só, sem ter que ir de CheckBox em CheckBox?
Obrigado
Eugênio
codigo +
escola a25
data date
Tenho que ao clicar no CheckBox := checked em todas que quizer
gravar dentro de minha tabela com um loop todos os captions dos CheckBox := checked.
alguém sabe se tem como gravar todas com uma rotina só, sem ter que ir de CheckBox em CheckBox?
Obrigado
Eugênio
José Ramos
Curtir tópico
+ 0
Responder
Posts
09/12/2003
Motta
seria mais fácil usando um TCheckListBox
procedure TForm1.SpeedButton1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to (CheckListBox1.Items.Count - 1) do
begin
if CheckListBox1.Checked[i] then ....
end;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to (CheckListBox1.Items.Count - 1) do
begin
if CheckListBox1.Checked[i] then ....
end;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)