<div dir="auto"><div>Hi Errol</div><div dir="auto"><br></div><div dir="auto">I have struck a similar situation with runtime objects.</div><div dir="auto"><br></div><div dir="auto">Suggestion .... </div><div dir="auto">Instead of ...</div><div dir="auto">xObjectName.Property</div><div dir="auto">Try ...</div><div dir="auto">(xObject as TObjectType). Property</div><div dir="auto"><br></div><div dir="auto">You would expect either to work but I have found situations where only option two works.</div><div dir="auto"><br></div><div dir="auto">Regards</div><div dir="auto"><br></div><div dir="auto">Graham Marsden</div><div dir="auto">ElectroPlan Ltd</div><div dir="auto"><br><div class="gmail_extra" dir="auto"><br><div class="gmail_quote">On Dec 21, 2017 5:10 PM, <<a href="mailto:delphi-request@listserver.123.net.nz">delphi-request@listserver.123.net.nz</a>> wrote:<br type="attribution"><blockquote class="quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Send Delphi mailing list submissions to<br>
<a href="mailto:delphi@listserver.123.net.nz">delphi@listserver.123.net.nz</a><br>
<br>
To subscribe or unsubscribe via the World Wide Web, visit<br>
<a href="http://listserver.123.net.nz/mailman/listinfo/delphi" rel="noreferrer" target="_blank">http://listserver.123.net.nz/<wbr>mailman/listinfo/delphi</a><br>
or, via email, send a message with subject or body 'help' to<br>
<a href="mailto:delphi-request@listserver.123.net.nz">delphi-request@listserver.123.<wbr>net.nz</a><br>
<br>
You can reach the person managing the list at<br>
<a href="mailto:delphi-owner@listserver.123.net.nz">delphi-owner@listserver.123.<wbr>net.nz</a><br>
<br>
When replying, please edit your Subject line so it is more specific<br>
than "Re: Contents of Delphi digest..."<br>
<br>Today's Topics:<br>
<br>
1. Re: How to find parameters of an Action Menu created at<br>
runtime (Errol Anderson)<br>
2. Re: How to find parameters of an Action Menu created at<br>
runtime (David O'Brien)<br>
<br><br>---------- Forwarded message ----------<br>From: Errol Anderson <<a href="mailto:errol.anderson@gsds.co.nz">errol.anderson@gsds.co.nz</a>><br>To: "'NZ Borland Developers Group - Delphi List'" <<a href="mailto:delphi@listserver.123.net.nz">delphi@listserver.123.net.nz</a>><br>Cc: <br>Bcc: <br>Date: Thu, 21 Dec 2017 14:01:05 +1300<br>Subject: Re: [DUG] How to find parameters of an Action Menu created at runtime<br><div lang="EN-NZ" link="#0563C1" vlink="#954F72"><div class="m_-2735608988133295672WordSection1"><p class="MsoNormal"><span style="color:#1f497d">Hi David<u></u><u></u></span></p><p class="MsoNormal"><span style="color:#1f497d"><u></u> <u></u></span></p><p class="MsoNormal"><span style="color:#1f497d">Thanks for your suggestion. Unfortunately it raises the following error:<u></u><u></u></span></p><p class="MsoNormal"><span style="color:#1f497d"><img width="541" height="39" id="m_-2735608988133295672Picture_x0020_1" src="cid:image001.png@01D37A62.2ECEBA00"></span><span style="color:#1f497d"><u></u><u></u></span></p><p class="MsoNormal"><span style="color:#1f497d"><u></u> <u></u></span></p><p class="MsoNormal"><span style="color:#1f497d">Because there may be multiple items with the same action but different captions, I figured I had to pick the item caption, not the action caption. <u></u><u></u></span></p><p class="MsoNormal"><span style="color:#1f497d"><u></u> <u></u></span></p><p class="MsoNormal"><span style="color:#1f497d">I have tried creating one or multiple items at designtime as a test, but I get the same results every time – namely TActionClientItem(Sender).<wbr>Caption returns a null string, and TAction(TActionClientItem(<wbr>Sender).Action).Caption fails. It appears that TActionClientItem does not act like TMenuItem which is very disappointing.<u></u><u></u></span></p><p class="MsoNormal"><span style="color:#1f497d"><u></u> <u></u></span></p><p class="MsoNormal"><span style="color:#1f497d">Best regards<u></u><u></u></span></p><p class="MsoNormal"><span style="color:#1f497d"><u></u> <u></u></span></p><p class="MsoNormal"><span style="color:#1f497d">Errol<u></u><u></u></span></p><p class="MsoNormal"><a name="m_-2735608988133295672__MailEndCompose"><span style="color:#1f497d"><u></u> <u></u></span></a></p><div><div style="border:none;border-top:solid #e1e1e1 1.0pt;padding:3.0pt 0cm 0cm 0cm"><p class="MsoNormal"><b><span lang="EN-US">From:</span></b><span lang="EN-US"> David O'Brien [mailto:<a href="mailto:Dave@iccs.co.nz" target="_blank">Dave@iccs.co.nz</a>] <br><b>Sent:</b> Thursday, 21 December 2017 9:58 AM<br><b>To:</b> NZ Borland Developers Group - Delphi List <<a href="mailto:delphi@listserver.123.net.nz" target="_blank">delphi@listserver.123.net.nz</a>><br><b>Subject:</b> Re: [DUG] How to find parameters of an Action Menu created at runtime<u></u><u></u></span></p></div></div><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal"><span lang="EN-US">The Sender will be the menu item. Try TAction(</span><span style="font-size:10.0pt;font-family:"Courier New"">TActionClientItem</span> <span lang="EN-US">(Sender).Action).Caption.<u></u><u></u></span></p><p class="MsoNormal"><span lang="EN-US"><u></u> <u></u></span></p><div><div style="border:none;border-top:solid #e1e1e1 1.0pt;padding:3.0pt 0cm 0cm 0cm"><p class="MsoNormal"><b><span lang="EN-US">From:</span></b><span lang="EN-US"> <a href="mailto:delphi-bounces@listserver.123.net.nz" target="_blank">delphi-bounces@listserver.123.<wbr>net.nz</a> [<a href="mailto:delphi-bounces@listserver.123.net.nz" target="_blank">mailto:delphi-bounces@<wbr>listserver.123.net.nz</a>] <b>On Behalf Of </b>Errol Anderson<br><b>Sent:</b> Thursday, 21 December 2017 9:47 am<br><b>To:</b> <a href="mailto:delphi@listserver.123.net.nz" target="_blank">delphi@listserver.123.net.nz</a><br><b>Subject:</b> [DUG] How to find parameters of an Action Menu created at runtime<u></u><u></u></span></p></div></div><p class="MsoNormal"><u></u> <u></u></p><p>My program creates Action Menu items at runtime, with the caption of each item set to a value returned by a database query. The OnExecute procedure is the same for all items. <u></u><u></u></p><p>When I click on an item, I need to obtain the item caption for the OnExecute procedure, to use in another query. I have tried the following (analogous to TMenuItem for a popup menu):<u></u><u></u></p><p><span style="font-size:10.0pt;font-family:"Courier New"">sCaption := TActionClientItem(Sender).<wbr>Caption;<u></u><u></u></span></p><p>However, this always returns an empty string. I have searched the web and the Delphi Help to no avail. I am aware that Caption is a published property, but the public property Index also fails.<u></u><u></u></p><p>I presume I am doing something wrong here, but cannot figure out what. Any help appreciated. <u></u><u></u></p><p class="MsoNormal">Regards<u></u><u></u></p><p class="MsoNormal"><u></u> <u></u></p><p class="MsoNormal"><span lang="EN-US" style="font-size:12.0pt;font-family:"Times New Roman",serif;color:red">Errol Anderson <u></u><u></u></span></p></div></div><br><br>---------- Forwarded message ----------<br>From: "David O'Brien" <<a href="mailto:Dave@iccs.co.nz">Dave@iccs.co.nz</a>><br>To: NZ Borland Developers Group - Delphi List <<a href="mailto:delphi@listserver.123.net.nz">delphi@listserver.123.net.nz</a>><br>Cc: <br>Bcc: <br>Date: Thu, 21 Dec 2017 04:09:33 +0000<br>Subject: Re: [DUG] How to find parameters of an Action Menu created at runtime<br>
<div lang="EN-NZ" link="#0563C1" vlink="#954F72">
<div class="m_3895269387216418665WordSection1">
<p class="MsoNormal"><span lang="EN-US">No worries. I didn’t actually try it, just a thought…<u></u><u></u></span></p>
<p class="MsoNormal"><span lang="EN-US"><u></u> <u></u></span></p>
<p class="MsoNormal"><span lang="EN-US">“</span><span style="font-size:10.5pt;font-family:"Verdana",sans-serif;color:black">If an action band contains a TCustomizeBandAction standard action, the user of the application can change this property. Because the
caption can be changed at runtime, the default caption that will be used, should be set in the action itself and not in the
</span><a href="http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/delphivclwin32/ActnMan_TActionClientItem.html" target="_blank"><span style="font-size:10.5pt;font-family:"Verdana",sans-serif">TActionClientItem</span></a><span style="font-size:10.5pt;font-family:"Verdana",sans-serif;color:black">
object.”<u></u><u></u></span></p>
<p class="MsoNormal"><span lang="EN-US"><u></u> <u></u></span></p>
<div>
<div style="border:none;border-top:solid #e1e1e1 1.0pt;padding:3.0pt 0cm 0cm 0cm">
<p class="MsoNormal"><b><span lang="EN-US">From:</span></b><span lang="EN-US"> <a href="mailto:delphi-bounces@listserver.123.net.nz" target="_blank">delphi-bounces@listserver.123.<wbr>net.nz</a> [mailto:<a href="mailto:delphi-bounces@listserver.123.net.nz" target="_blank">delphi-bounces@<wbr>listserver.123.net.nz</a>]
<b>On Behalf Of </b>Errol Anderson<br>
<b>Sent:</b> Thursday, 21 December 2017 2:01 pm<br>
<b>To:</b> 'NZ Borland Developers Group - Delphi List' <<a href="mailto:delphi@listserver.123.net.nz" target="_blank">delphi@listserver.123.net.nz</a>><br>
<b>Subject:</b> Re: [DUG] How to find parameters of an Action Menu created at runtime<u></u><u></u></span></p>
</div>
</div>
<p class="MsoNormal"><u></u> <u></u></p>
<p class="MsoNormal"><span style="color:#1f497d">Hi David<u></u><u></u></span></p>
<p class="MsoNormal"><span style="color:#1f497d"><u></u> <u></u></span></p>
<p class="MsoNormal"><span style="color:#1f497d">Thanks for your suggestion. Unfortunately it raises the following error:<u></u><u></u></span></p>
<p class="MsoNormal"><span style="color:#1f497d"><img border="0" width="541" height="39" style="width:5.6354in;height:.4062in" id="m_3895269387216418665Picture_x0020_1" src="cid:image001.png@01D37A7E.7858CD70"></span><span style="color:#1f497d"><u></u><u></u></span></p>
<p class="MsoNormal"><span style="color:#1f497d"><u></u> <u></u></span></p>
<p class="MsoNormal"><span style="color:#1f497d">Because there may be multiple items with the same action but different captions, I figured I had to pick the item caption, not the action caption.
<u></u><u></u></span></p>
<p class="MsoNormal"><span style="color:#1f497d"><u></u> <u></u></span></p>
<p class="MsoNormal"><span style="color:#1f497d">I have tried creating one or multiple items at designtime as a test, but I get the same results every time – namely TActionClientItem(Sender).<wbr>Caption returns a null string, and TAction(TActionClientItem(<wbr>Sender).Action).Caption
fails. It appears that TActionClientItem does not act like TMenuItem which is very disappointing.<u></u><u></u></span></p>
<p class="MsoNormal"><span style="color:#1f497d"><u></u> <u></u></span></p>
<p class="MsoNormal"><span style="color:#1f497d">Best regards<u></u><u></u></span></p>
<p class="MsoNormal"><span style="color:#1f497d"><u></u> <u></u></span></p>
<p class="MsoNormal"><span style="color:#1f497d">Errol<u></u><u></u></span></p>
<p class="MsoNormal"><a name="m_3895269387216418665__MailEndCompose"></a><span style="color:#1f497d"><u></u> <u></u></span></p>
<div>
<div style="border:none;border-top:solid #e1e1e1 1.0pt;padding:3.0pt 0cm 0cm 0cm">
<p class="MsoNormal"><b><span lang="EN-US">From:</span></b><span lang="EN-US"> David O'Brien [<a href="mailto:Dave@iccs.co.nz" target="_blank">mailto:Dave@iccs.co.nz</a>]
<br>
<b>Sent:</b> Thursday, 21 December 2017 9:58 AM<br>
<b>To:</b> NZ Borland Developers Group - Delphi List <<a href="mailto:delphi@listserver.123.net.nz" target="_blank">delphi@listserver.123.net.nz</a>><br>
<b>Subject:</b> Re: [DUG] How to find parameters of an Action Menu created at runtime<u></u><u></u></span></p>
</div>
</div>
<p class="MsoNormal"><u></u> <u></u></p>
<p class="MsoNormal"><span lang="EN-US">The Sender will be the menu item. Try TAction(</span><span style="font-size:10.0pt;font-family:"Courier New"">TActionClientItem</span>
<span lang="EN-US">(Sender).Action).Caption.<u></u><u></u></span></p>
<p class="MsoNormal"><span lang="EN-US"><u></u> <u></u></span></p>
<div>
<div style="border:none;border-top:solid #e1e1e1 1.0pt;padding:3.0pt 0cm 0cm 0cm">
<p class="MsoNormal"><b><span lang="EN-US">From:</span></b><span lang="EN-US">
<a href="mailto:delphi-bounces@listserver.123.net.nz" target="_blank">delphi-bounces@listserver.123.<wbr>net.nz</a> [<a href="mailto:delphi-bounces@listserver.123.net.nz" target="_blank">mailto:delphi-bounces@<wbr>listserver.123.net.nz</a>]
<b>On Behalf Of </b>Errol Anderson<br>
<b>Sent:</b> Thursday, 21 December 2017 9:47 am<br>
<b>To:</b> <a href="mailto:delphi@listserver.123.net.nz" target="_blank">delphi@listserver.123.net.nz</a><br>
<b>Subject:</b> [DUG] How to find parameters of an Action Menu created at runtime<u></u><u></u></span></p>
</div>
</div>
<p class="MsoNormal"><u></u> <u></u></p>
<p>My program creates Action Menu items at runtime, with the caption of each item set to a value returned by a database query. The OnExecute procedure is the same for all items.
<u></u><u></u></p>
<p>When I click on an item, I need to obtain the item caption for the OnExecute procedure, to use in another query. I have tried the following (analogous to TMenuItem for a popup menu):<u></u><u></u></p>
<p><span style="font-size:10.0pt;font-family:"Courier New"">sCaption := TActionClientItem(Sender).<wbr>Caption;<u></u><u></u></span></p>
<p>However, this always returns an empty string. I have searched the web and the Delphi Help to no avail. I am aware that Caption is a published property, but the public property Index also fails.<u></u><u></u></p>
<p>I presume I am doing something wrong here, but cannot figure out what. Any help appreciated.
<u></u><u></u></p>
<p class="MsoNormal">Regards<u></u><u></u></p>
<p class="MsoNormal"><u></u> <u></u></p>
<p class="MsoNormal"><span lang="EN-US" style="font-size:12.0pt;font-family:"Times New Roman",serif;color:red">Errol Anderson
<u></u><u></u></span></p>
</div>
</div>
<br>______________________________<wbr>_________________<br>
Delphi mailing list<br>
<a href="mailto:Delphi@listserver.123.net.nz">Delphi@listserver.123.net.nz</a><br>
<a href="http://listserver.123.net.nz/mailman/listinfo/delphi" rel="noreferrer" target="_blank">http://listserver.123.net.nz/<wbr>mailman/listinfo/delphi</a><br></blockquote></div><br></div></div></div>