popup-menu wie krieg ich die caption der popupcomponent raus

[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, hat jemand n tipp?

ich hab den namen der compo schon rausbekommen aber da komm ich jetzt nich weiter...

Code:

procedure TDSForm.infopmPopup(Sender: TObject);
begin
  if infopm.PopupComponent is Tcheckbox then
    cbcap:=infopm.PopupComponent.Name;
    for i:=1 to dsform.ComponentCount do
    if dsform.Components[i-1].Name=cbcap then

gruesse
grumble

[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;

[Grumble]

au ja super danke dir
daruaf haette ich auch selbst noch kommen koennen
manchmal hat man echt n brett vorm schaedel