CheckedBox em tempo de execução
Caros Colegas
Desculpe a intromissao de um leigo em Delphi perto de V.Sas. E desculpe mais uma vez se a questao eh tao boba mas preciso resolve-la para terminar um trabalho.
Estou fazendo uma aplicacao onde vou buscar em um banco de dados palavras para serem escolhidas como chave de outra busca.
Criei um form com um ScrollBox e um Panel. No Panel coloquei um botao que chamei de PESQUISA. No ScrollBox crio os CheckedBox em tempo de execucao com o seguinte codigo:
for i:=0 to tF_Memo.Lines.Count-1 do
begin
cBox := TCheckBox.Create(self);
cBox.Name:=´cB´+IntToStr(i);
sBox.InsertControl(cBox);
with cBox do
begin
// Inclui checkboxes para cada um dos itens encontrados
Width :=150;
Top :=10 + (i*20);
Left :=15;
Caption:=tF_Memo.Lines[i];
Checked:=False;
Visible:=True;
Show;
end;
end;
Como fazer com que apos o botao PESQUISAR for pressionado saber quais os CheckedBox assinalados?
Obrigado pela atencao
Luzanilton
Desculpe a intromissao de um leigo em Delphi perto de V.Sas. E desculpe mais uma vez se a questao eh tao boba mas preciso resolve-la para terminar um trabalho.
Estou fazendo uma aplicacao onde vou buscar em um banco de dados palavras para serem escolhidas como chave de outra busca.
Criei um form com um ScrollBox e um Panel. No Panel coloquei um botao que chamei de PESQUISA. No ScrollBox crio os CheckedBox em tempo de execucao com o seguinte codigo:
for i:=0 to tF_Memo.Lines.Count-1 do
begin
cBox := TCheckBox.Create(self);
cBox.Name:=´cB´+IntToStr(i);
sBox.InsertControl(cBox);
with cBox do
begin
// Inclui checkboxes para cada um dos itens encontrados
Width :=150;
Top :=10 + (i*20);
Left :=15;
Caption:=tF_Memo.Lines[i];
Checked:=False;
Visible:=True;
Show;
end;
end;
Como fazer com que apos o botao PESQUISAR for pressionado saber quais os CheckedBox assinalados?
Obrigado pela atencao
Luzanilton
Luza
Curtidas 0
Respostas
Motta
22/05/2003
use um CheckListBox1
depois faça
procedure TForm1.SpeedButton1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to CheckListBox1.Items.Count-1 do
if CheckListBox1.Checked[i] then
....
end;
depois faça
procedure TForm1.SpeedButton1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to CheckListBox1.Items.Count-1 do
if CheckListBox1.Checked[i] then
....
end;
GOSTEI 0