URGENT: TPopupMenu question

If I have several TImage component, is it possible that each of that TImage component is using the same TPopupMenu ?

So I dont have to create popupmenu for every component.

I tried like this :

// clicking one of the popup menu item
procedure TForm1.Enable1Click(Sender: TObject);
begin
  TImage(Sender).Enable := TRUE;
end;

But I got "Access Violation" error.

Please help me.
klompenAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

 
raidosCommented:
If the Enable1Click event is assigned to a TMenuItem then the sender will not be a TImage and TImage(Sender).Enabled := TRUE will likely fail...perhaps...i don't really understand what your trying to do...so it makes it hard to give a concrete working example..;(

Regards
//raidos
0
 
klompenAuthor Commented:
Here is the situation :

I have several TImage objects in a form :

   Image1: Timage;
   Image2: Timage;
   Image3: Timage;

And I have one TPopupMenu object :

   Popup1: TPopupMenu;
      Enable1: TMenuItem;
      Disable1: TMenuItem;

What I need to do is, assigning all those TImage objects PopupMenu property to the above Popup1. So I dont have to create 3 TPopupmenu objects for each TImage object.

Then, I should check WHICH Timage object triggered the Popup1 ?

That's my question.
0
 
kretzschmarCommented:
>is it possible that each of that TImage component is
>using the same TPopupMenu ?
yes, just assign it to each timage-popupmenu-property


>But I got "Access Violation" error.
as raidos already explained the sender is the menuitem

the popupmenu has a property popupcompenent,
there is stored which component caused the popup,
just store it in a var in the onpopup-event,
so you can use it in your menuitem-onclick event

meikl ;-)



0
Cloud Class® Course: Certified Penetration Testing

This CPTE Certified Penetration Testing Engineer course covers everything you need to know about becoming a Certified Penetration Testing Engineer. Career Path: Professional roles include Ethical Hackers, Security Consultants, System Administrators, and Chief Security Officers.

 
ZhaawZSoftware DeveloperCommented:
the name of component is be stored in PopupMenu1.PopupComponent.Name, so you can use
TImage(FindComponent(PopupMenu1.PopupComponent.Name)).Enabled := False;

:)
0

Experts Exchange Solution brought to you by ConnectWise

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
 
kretzschmarCommented:
nono, ZhaawZ, not only the name, the complete refernce

an access could be

if (popupmenu1.popupcomoponent is TImage) then
  TImage(popupmenu1.popupcomoponent).Enabled := ...

meikl ;-)
0
 
kretzschmarCommented:
typo
popupcomoponent -> popupcomponent
0
 
kretzschmarCommented:
as it will be
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.