Hilfe mit der CheckBoxList

[StoRmtec]

Hy Sharky

Also ich mache es mit der OnClick von der CheckListBox.

und das ist der Ausführcode

procedure TForm1.Button3Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to CheckListBox1.Items.Count - 1 do
if CheckListBox1.Checked[i] then
begin
mThumbs1.InFiles.Text := CheckListBox1.Items.text;
mThumbs1.CreateThumbnails;

checklistbox1.itemindex := checklistbox1.itemindex + 1;
end
else
begin
checklistbox1.itemindex := checklistbox1.itemindex + 1;
end;
checklistbox1.itemindex := 0;
end;

mfg
StoRmtec