Marcar items no checklistbox

Delphi

04/02/2018

olá a todos preciso de ajuda de novo

tenho um checklistbox1 e um listbox1, no checklistbox1 tem 5 items e no listbox1 tem 3 como faço para que no evento oncreate do form somente os items existente no listbox seja marcados no checklistbox1.

Este codigo abaixo marca os 3 primeiros items do checklistbox1
 for I := 0 to ListBox1.Items.Count -1 do  begin
   if CheckListBox1.Items.IndexOf(ListBox1.Items.Strings[i]) > 0 then
      CheckListBox1.Checked[i] := true
  end;
Cgm2k7 2013

Cgm2k7 2013

Curtidas 0

Respostas

Jerson Boer

Jerson Boer

04/02/2018

Cgm2k7 2013, segue código:

for I := 0 to lstTeste.Items.Count - 1 do
    begin
      if chklstTeste.Items.IndexOf(lstTeste.Items.Strings[i]) >= 0  then
        begin
          chklstTeste.Checked[chklstTeste.Items.IndexOf(lstTeste.Items.Strings[i])] := true;
        end;
    end;
GOSTEI 0
Cgm2k7 2013

Cgm2k7 2013

04/02/2018

vlw irmão muito obrigado, deu certo aqui...
vlw
GOSTEI 0
POSTAR