logman0u812 wrote:
>
> Im not sure you can add an additional event for the OnClick
> You would have to assign an OnClick to all items then separate them by
> caption/name/tag whatever.
>
> like this:
>
> private
> { Private declarations }
> Procedure ClickMyMenuItem(Sender : Tobject);
> Procedure AssignMenuItemClickEvents;
>
> ....
>
> procedure TForm1.ClickMyMenuItem(Sender : Tobject);
> Begin
> ShowMessage ('This is my Onclick handler');
> End;
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> AssignMenuItemClickEvents;
> end;
>
> Procedure TForm1.AssignMenuItemClickEvents;
> var
> i,x: integer;
> Begin
> for i := 0 to ComponentCount - 1 do begin
> if (Components[i] is TMenuItem) then
> TMenuItem(Components[i]).OnClick := ClickMyMenuItem;
> end;
> End;
>
> heromed <[EMAIL PROTECTED]> wrote: How can I add an additional
> event to TPopUpMenu which would be
> executed when any of the MenuItems were clicked on, and would return
> the MenuItem that was selected ?
>
>
>
> ---------------------------------
> Yahoo! Photos
> Got holiday prints? See all the ways to get quality prints in your
> hands ASAP.
>
> [Non-text portions of this message have been removed]
>
>
>
> -----------------------------------------------------
> Home page: http://groups.yahoo.com/group/delphi-en/
> To unsubscribe: [EMAIL PROTECTED]
>
>
>
> SPONSORED LINKS
> C programming language
> <http://groups.yahoo.com/gads?t=ms&k=C+programming+language&w1=C+programming+language&w2=Computer+programming+languages&w3=Java+programming+language&w4=The+c+programming+language&w5=C+++programming+language&w6=Concept+of+programming+language&c=6&s=194&.sig=lC1PxfzvANy_Br-nPkXYTA>
>
> Computer programming languages
> <http://groups.yahoo.com/gads?t=ms&k=Computer+programming+languages&w1=C+programming+language&w2=Computer+programming+languages&w3=Java+programming+language&w4=The+c+programming+language&w5=C+++programming+language&w6=Concept+of+programming+language&c=6&s=194&.sig=7XFXh-0Mon1IfLuOVlwvdg>
>
> Java programming language
> <http://groups.yahoo.com/gads?t=ms&k=Java+programming+language&w1=C+programming+language&w2=Computer+programming+languages&w3=Java+programming+language&w4=The+c+programming+language&w5=C+++programming+language&w6=Concept+of+programming+language&c=6&s=194&.sig=UITodqn0qTCUcae_mpRQog>
>
>
> The c programming language
> <http://groups.yahoo.com/gads?t=ms&k=The+c+programming+language&w1=C+programming+language&w2=Computer+programming+languages&w3=Java+programming+language&w4=The+c+programming+language&w5=C+++programming+language&w6=Concept+of+programming+language&c=6&s=194&.sig=xnZC2-BzDSLhhir3MLtssg>
>
> C programming language
> <http://groups.yahoo.com/gads?t=ms&k=C+++programming+language&w1=C+programming+language&w2=Computer+programming+languages&w3=Java+programming+language&w4=The+c+programming+language&w5=C+++programming+language&w6=Concept+of+programming+language&c=6&s=194&.sig=RTzTl3BOJWbWK14CdUrO0w>
>
> Concept of programming language
> <http://groups.yahoo.com/gads?t=ms&k=Concept+of+programming+language&w1=C+programming+language&w2=Computer+programming+languages&w3=Java+programming+language&w4=The+c+programming+language&w5=C+++programming+language&w6=Concept+of+programming+language&c=6&s=194&.sig=x4ueM0tA417JDq3ckdJ9CQ>
>
>
>
>
> ------------------------------------------------------------------------
> YAHOO! GROUPS LINKS
>
> * Visit your group "delphi-en
> <http://groups.yahoo.com/group/delphi-en>" on the web.
>
> * To unsubscribe from this group, send an email to:
> [EMAIL PROTECTED]
> <mailto:[EMAIL PROTECTED]>
>
> * Your use of Yahoo! Groups is subject to the Yahoo! Terms of
> Service <http://docs.yahoo.com/info/terms/>.
>
>
> ------------------------------------------------------------------------
>
>------------------------------------------------------------------------
>
>No virus found in this incoming message.
>Checked by AVG Free Edition.
>Version: 7.1.371 / Virus Database: 267.14.15/223 - Release Date: 6/01/2006
>
>
Thnk You !
This seems an easy way to do it.
I was considering writing a new component.
Regards
Bob Stanton
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/delphi-en/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
