Moin, moin,
ich habe ein Popup-Menu, welches an zwei verschiedene TCheckListBox gebunden ist - sprich beide rufen das gleiche Popup auf. Einer der Menüpunkte soll alle Items in TCheckListBox auf Checked=TRUE setzen. Dazu habe ich folgende Routine in das entsprechende OnClick-Event des Menüs geschrieben:
Delphi-Quellcode:
for cnt:=0 to TCheckListBox(TPopupMenu(TMenuItem(Sender).Parent).PopupComponent).Items.Count-1 do
TCheckListBox(TPopupMenu(TMenuItem(Sender).Parent).PopupComponent).Checked[cnt]:=TRUE;
IMHO müsste das eigentlich gehen. Geht aber nicht
Bin ich jetzt nur zu blind?
Thanx for help
easywk