Fórum CheckedBox em tempo de execução #161898
22/05/2003
0
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
Curtir tópico
+ 0
Responder
Posts
22/05/2003
Motta
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)