TPopup an zwei TCheckListBox gebunden

[easywk]

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 :wall:
Bin ich jetzt nur zu blind?

Thanx for help
easywk

[s14]

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

[easywk]

:wall: :wall: :wall: jetzt ist auch mein Fehler klar! statt

Delphi-Quellcode:

TMenuItem(Sender).Parent

muss es natürlich heissen:

Delphi-Quellcode:

TMenuItem(Sender).GetParentComponent

Sogesehen hat mir dein "Experiment" sehr weitergeholfen, auch wenn ich es jetzt nicht direkt benutze :-)

Thanx
easywk