Dúvida Componente ListBox
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
Curtidas 0
Respostas
Alan Souza
10/07/2013
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;
GOSTEI 0
Itamar Souza
10/07/2013
Muito Grato pela ajuda!!
att
att
GOSTEI 0
Joel Rodrigues
10/07/2013
Tópico concluído.
GOSTEI 0