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


Luza

Luza

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;


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar