Dificuldade com GroupBox
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
Curtidas 0
Respostas
Motta
09/12/2003
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;
GOSTEI 0