Fórum Dúvida Componente ListBox #448305
10/07/2013
0
Boa tarde a todos
Estou com uma dúvida na utilização do componente ListBox usando o Delphi 7, quando eu seleciono mais de uma opção, a copia do conteúdo e duplicado o conteúdo que esta selecionado apenas.
Agradeço a ajuda
procedure TfrmGeradorInterface.btnEnviarClick(Sender: TObject);
var
i:integer;
begin
for i:=0 to CheckListBoxTabelas.Items.Count -1 do
begin
If CheckListBoxTabelas.Checked[i] then
begin
CheckListBoxTabelas.CopySelection(CheckListBoxTelas);
CheckListBoxTabelas.Checked[i] := False;
end;
end;
end;
Estou com uma dúvida na utilização do componente ListBox usando o Delphi 7, quando eu seleciono mais de uma opção, a copia do conteúdo e duplicado o conteúdo que esta selecionado apenas.
Agradeço a ajuda
procedure TfrmGeradorInterface.btnEnviarClick(Sender: TObject);
var
i:integer;
begin
for i:=0 to CheckListBoxTabelas.Items.Count -1 do
begin
If CheckListBoxTabelas.Checked[i] then
begin
CheckListBoxTabelas.CopySelection(CheckListBoxTelas);
CheckListBoxTabelas.Checked[i] := False;
end;
end;
end;
Itamar Souza
Curtir tópico
+ 0
Responder
Posts
11/07/2013
Alan Souza
o seu código está copiando apenas o item selecionado, ignorando os que estão com Checked = True.
Tenta desse modo:
Tenta desse modo:
procedure TfrmGeradorInterface.btnEnviarClick(Sender: TObject);
var
i:integer;
begin
for i := 0 to CheckListBoxTabelas.Items.Count -1 do
begin
if CheckListBoxTabelas.Checked[i] then
begin
CheckListBoxTelas.Items.Add(CheckListBoxTabelas.Items[i]);
CheckListBoxTabelas.Checked[i] := False;
end;
end;
end;
Responder
Gostei + 0
15/07/2013
Itamar Souza
Muito Grato pela ajuda!!
att
att
Responder
Gostei + 0
18/07/2013
Joel Rodrigues
Tópico concluído.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)