checklistbox auswerten ohne Scrolling

[Jens Reiber]

Hallo,

ich werte die ausgewählten Einträge einer Checklistbox mit folgendem Code aus:
for i:= 0 to anzahl-1 do begin
if List_KstSt.Checked[i] = true then begin
// Mach was
// Mach noch was
end;// IF
end;// end for

Sobald die Checkbox eine Scrollbar hat, fängt sie beim durchlaufen der Items an zu Scrollen.
Wie kann ich das Scrollen der Checklistbox unterbinden?

[Jens Jung]

Hi,
setze vor beginn der Schleife die Eigenschaft visible der Listbox auf false, und nach der Schleife wieder auf true.
Wenn du innerhalb der Schleife kein refresh oder application.processmessages machst bleibt die Listbox sichtbar, scrollt aber nicht.
Gruß
Jen

[Jens Reiber]

Hallo Jens.

Gute Idee. Jetzt ist das Scrollen nicht mehr zu sehen. Die dargestellte Position ändert sich nach dem 'Visible := True' dennoch.
Dann steht die ListBox auf der letzten Position.

Ich speicher mir die Position der Listbox vor dem Durchlaufen und stelle diese vor dem 'Visible := True' wieder her.
Da ich eine TJvCheckListBox nutze, kann ich auch den Index des ersten angezeigten Item (TopIndex) der Listbox sichern und wieder herstellen.

Das Problem ist somit gelöst.
Oft sind die einfachen Lösungen die Besten.
Danke