Hallo,
also ich hab's mal experimentell so gelöst:
Delphi-Quellcode:
var
obj : TObject;
cnt: Integer;
begin
obj := (Sender as TMenuItem).GetParentComponent;
obj := (obj as TPopupMenu).PopupComponent;
with (obj as TCheckListBox) do
for cnt := 0 to Items.Count-1 do Checked[cnt] := True;
end;
Es sollte aber schon noch geprüft werden ob es überhaupt eine TCheckListBox ist!!
Gruß
s14