popup-menu wie krieg ich die caption der popupcomponent raus

[shmia]

Zitat von Grumble:

hi,

ich hab n paar checkboxen auf der form, nun hat jede das selbe popup menu gesetzt bekommen.
mit rechtsclick popts auch hoch nur will ich im onpopup event irgendwie die caption der zugehoerigen checkbox rausbekommen,

Delphi-Quellcode:

procedure TDSForm.infopmPopup(Sender: TObject);
begin
  if infopm.PopupComponent is Tcheckbox then
  begin
     cbcap:=Tcheckbox(infopm.PopupComponent).Caption;
  end;
end;