CheckedBox em tempo de execução

Delphi

22/05/2003

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


Luza

Luza

Curtidas 0

Respostas

Motta

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;


GOSTEI 0
POSTAR