Dificuldade com GroupBox

09/12/2003

1

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


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;


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira