<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:x="urn:schemas-microsoft-com:office:excel" xmlns:p="urn:schemas-microsoft-com:office:powerpoint" xmlns:a="urn:schemas-microsoft-com:office:access" xmlns:dt="uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" xmlns:s="uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882" xmlns:rs="urn:schemas-microsoft-com:rowset" xmlns:z="#RowsetSchema" xmlns:b="urn:schemas-microsoft-com:office:publisher" xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet" xmlns:c="urn:schemas-microsoft-com:office:component:spreadsheet" xmlns:odc="urn:schemas-microsoft-com:office:odc" xmlns:oa="urn:schemas-microsoft-com:office:activation" xmlns:html="http://www.w3.org/TR/REC-html40" xmlns:q="http://schemas.xmlsoap.org/soap/envelope/" xmlns:rtc="http://microsoft.com/officenet/conferencing" xmlns:D="DAV:" xmlns:Repl="http://schemas.microsoft.com/repl/" xmlns:mt="http://schemas.microsoft.com/sharepoint/soap/meetings/" xmlns:x2="http://schemas.microsoft.com/office/excel/2003/xml" xmlns:ppda="http://www.passport.com/NameSpace.xsd" xmlns:ois="http://schemas.microsoft.com/sharepoint/soap/ois/" xmlns:dir="http://schemas.microsoft.com/sharepoint/soap/directory/" xmlns:ds="http://www.w3.org/2000/09/xmldsig#" xmlns:dsp="http://schemas.microsoft.com/sharepoint/dsp" xmlns:udc="http://schemas.microsoft.com/data/udc" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:sub="http://schemas.microsoft.com/sharepoint/soap/2002/1/alerts/" xmlns:ec="http://www.w3.org/2001/04/xmlenc#" xmlns:sp="http://schemas.microsoft.com/sharepoint/" xmlns:sps="http://schemas.microsoft.com/sharepoint/soap/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:udcs="http://schemas.microsoft.com/data/udc/soap" xmlns:udcxf="http://schemas.microsoft.com/data/udc/xmlfile" xmlns:udcp2p="http://schemas.microsoft.com/data/udc/parttopart" xmlns:wf="http://schemas.microsoft.com/sharepoint/soap/workflow/" xmlns:dsss="http://schemas.microsoft.com/office/2006/digsig-setup" xmlns:dssi="http://schemas.microsoft.com/office/2006/digsig" xmlns:mdssi="http://schemas.openxmlformats.org/package/2006/digital-signature" xmlns:mver="http://schemas.openxmlformats.org/markup-compatibility/2006" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns:mrels="http://schemas.openxmlformats.org/package/2006/relationships" xmlns:spwp="http://microsoft.com/sharepoint/webpartpages" xmlns:ex12t="http://schemas.microsoft.com/exchange/services/2006/types" xmlns:ex12m="http://schemas.microsoft.com/exchange/services/2006/messages" xmlns:pptsl="http://schemas.microsoft.com/sharepoint/soap/SlideLibrary/" xmlns:spsl="http://microsoft.com/webservices/SharePointPortalServer/PublishedLinksService" xmlns:Z="urn:schemas-microsoft-com:" xmlns:st="" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 12 (filtered medium)">
<!--[if !mso]>
<style>
v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style>
<![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
@font-face
{font-family:Tahoma;
panose-1:2 11 6 4 3 5 4 4 2 4;}
@font-face
{font-family:"Trebuchet MS";
panose-1:2 11 6 3 2 2 2 2 2 4;}
@font-face
{font-family:Webdings;
panose-1:5 3 1 2 1 5 9 6 7 3;}
@font-face
{font-family:"Comic Sans MS";
panose-1:3 15 7 2 3 3 2 2 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
p
{mso-style-priority:99;
mso-margin-top-alt:auto;
margin-right:0cm;
mso-margin-bottom-alt:auto;
margin-left:0cm;
font-size:12.0pt;
font-family:"Times New Roman","serif";}
p.MsoAcetate, li.MsoAcetate, div.MsoAcetate
{mso-style-priority:99;
mso-style-link:"Balloon Text Char";
margin:0cm;
margin-bottom:.0001pt;
font-size:8.0pt;
font-family:"Tahoma","sans-serif";}
span.EmailStyle19
{mso-style-type:personal-reply;
font-family:"Trebuchet MS","sans-serif";
color:#2D3A44;}
span.BalloonTextChar
{mso-style-name:"Balloon Text Char";
mso-style-priority:99;
mso-style-link:"Balloon Text";
font-family:"Tahoma","sans-serif";}
.MsoChpDefault
{mso-style-type:export-only;
font-size:10.0pt;}
@page Section1
{size:612.0pt 792.0pt;
margin:72.0pt 72.0pt 72.0pt 72.0pt;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="2050" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang=EN-US link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><span style='font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";
color:#2D3A44'>A longshot but are you calling MessageDlg prior to calling
application.run in the dpr?<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";
color:#2D3A44'><o:p> </o:p></span></p>
<div>
<table class=MsoNormalTable border=0 cellpadding=0 width=700 style='width:525.0pt'>
<tr style='height:26.25pt'>
<td colspan=4 style='padding:0cm 0cm 0cm 0cm;height:26.25pt'>
<p class=MsoNormal><b><span style='font-size:11.0pt;font-family:"Trebuchet MS","sans-serif";
color:#122029'>Cameron Hart </span></b><span style='font-size:6.5pt;
font-family:"Trebuchet MS","sans-serif";color:#122029'>Development Manager </span><span
style='font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";color:#2D3A44'><o:p></o:p></span></p>
</td>
</tr>
<tr>
<td width=23 style='width:17.25pt;padding:0cm 0cm 0cm 0cm'></td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";
color:#92C75F'>Flow Software Limited </span></b><span style='font-size:9.0pt;
font-family:"Trebuchet MS","sans-serif";color:#2D3A44'><o:p></o:p></span></p>
</td>
<td width=5 rowspan=4 valign=bottom style='width:3.75pt;padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><span style='font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";
color:#2D3A44'><img width=1 height=55 id="_x0000_i1026"
src="cid:image001.jpg@01CA99C5.7FCBCC30"></span><span style='font-size:9.0pt;
font-family:"Trebuchet MS","sans-serif";color:#2D3A44'><o:p></o:p></span></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'></td>
<td style='padding:0cm 0cm 0cm 0cm'></td>
<td rowspan=4 style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><span style='font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";
color:#2D3A44'><img width=158 height=38 id="_x0000_i1025"
src="cid:image002.jpg@01CA99C5.7FCBCC30" alt=Flow></span><span
style='font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";color:#2D3A44'><o:p></o:p></span></p>
</td>
</tr>
<tr>
<td style='padding:0cm 0cm 0cm 0cm'></td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Trebuchet MS","sans-serif";
color:#122029'>PO Box 305-237, Triton Plaza </span><span style='font-size:
9.0pt;font-family:"Trebuchet MS","sans-serif";color:#2D3A44'><o:p></o:p></span></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:8.0pt;font-family:"Trebuchet MS","sans-serif";
color:#92C75F'>P </span></b><span style='font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";
color:#2D3A44'><o:p></o:p></span></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Trebuchet MS","sans-serif";
color:#122029'>+64 9 476 3579 </span><span style='font-size:9.0pt;font-family:
"Trebuchet MS","sans-serif";color:#2D3A44'><o:p></o:p></span></p>
</td>
</tr>
<tr>
<td style='padding:0cm 0cm 0cm 0cm'></td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Trebuchet MS","sans-serif";
color:#122029'>Auckland 0757, New Zealand </span><span style='font-size:9.0pt;
font-family:"Trebuchet MS","sans-serif";color:#2D3A44'><o:p></o:p></span></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:8.0pt;font-family:"Trebuchet MS","sans-serif";
color:#92C75F'>M </span></b><span style='font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";
color:#2D3A44'><o:p></o:p></span></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Trebuchet MS","sans-serif";
color:#122029'>+64 21 222 3569 </span><span style='font-size:9.0pt;
font-family:"Trebuchet MS","sans-serif";color:#2D3A44'><o:p></o:p></span></p>
</td>
</tr>
<tr>
<td style='padding:0cm 0cm 0cm 0cm'></td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><span style='font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";
color:#2D3A44'><a href="http://www.flowsoftware.co.nz"><span
style='font-size:8.0pt;color:#122029'>www.flowsoftware.co.nz </span></a><o:p></o:p></span></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:8.0pt;font-family:"Trebuchet MS","sans-serif";
color:#92C75F'>E </span></b><span style='font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";
color:#2D3A44'><o:p></o:p></span></p>
</td>
<td style='padding:0cm 0cm 0cm 0cm'>
<p class=MsoNormal><span style='font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";
color:#2D3A44'><a href="mailto:cameron.hart@flowsoftware.co.nz"><span
style='font-size:8.0pt;color:#122029'>cameron.hart@flowsoftware.co.nz </span></a><o:p></o:p></span></p>
</td>
</tr>
</table>
<p class=MsoNormal><span style='font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";
color:#2D3A44'> <o:p></o:p></span></p>
<table class=MsoNormalTable border=0 cellpadding=0 width=650 style='width:487.5pt'>
<tr style='height:26.25pt'>
<td style='padding:0cm 0cm 0cm 0cm;height:26.25pt'>
<p class=MsoNormal><span style='font-size:7.0pt;font-family:"Trebuchet MS","sans-serif";
color:#122029'>This message is intended for the addressee named above. It may
contain privileged or confidential information. If you are not the intended
recipient of this message you must not use, copy, distribute or disclose it
to anyone. </span><span style='font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";
color:#2D3A44'><o:p></o:p></span></p>
</td>
</tr>
</table>
<p class=MsoNormal><span style='font-size:8.0pt;font-family:"Trebuchet MS","sans-serif";
color:#92C75F'> </span><span style='font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";
color:#2D3A44'> </span><span style='font-size:8.0pt;font-family:Webdings;
color:#92C75F'>P</span><span style='font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";
color:#2D3A44'> </span><span style='font-size:7.0pt;font-family:"Trebuchet MS","sans-serif";
color:#122029'>Please consider the environment before printing this email</span><span
style='font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";color:#2D3A44'> <o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";
color:#2D3A44'> </span><span style='font-size:9.0pt;font-family:"Trebuchet MS","sans-serif";
color:#2D3A44'><o:p></o:p></span></p>
<div>
<div style='border:none;border-top:solid #B5C4DF 1.0pt;padding:3.0pt 0cm 0cm 0cm'>
<p class=MsoNormal><b><span style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>From:</span></b><span
style='font-size:10.0pt;font-family:"Tahoma","sans-serif"'>
delphi-bounces@delphi.org.nz [mailto:delphi-bounces@delphi.org.nz] <b>On Behalf
Of </b>Stephen Barker<br>
<b>Sent:</b> Wednesday, 20 January 2010 11:16 a.m.<br>
<b>To:</b> NZ Borland Developers Group - Delphi List<br>
<b>Subject:</b> [DUG] windows 7 and messagedlg<o:p></o:p></span></p>
</div>
</div>
<p class=MsoNormal><o:p> </o:p></p>
<div>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>Hi,</span><o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>I
have a report from a Windows 7 user that a message from my app does not show
unless XP compatibility mode is selected.</span><o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>The
code that should fire is:</span><o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>
messagedlg(msg, mtCustom, [mbOk], 0);</span><o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>It
is being ignored when run under normal Windows 7 default mode.</span><o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>Any
ideas?</span><o:p></o:p></p>
</div>
<div>
<p class=MsoNormal> <o:p></o:p></p>
</div>
<div>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Arial","sans-serif"'>I
don't use Windows 7 here yet, but it looks like I may have to set up a test
environment. Actually I just have done a quick test using a simple Delphi exe
on Win 7 and it works fine. Must be something else in my app that is causing
the messagedlg to be suppressed. I guess I'll have to set up a full Delphi 2007
install with components on Win 7 and debug this properly.<o:p></o:p></span></p>
</div>
<div>
<p class=MsoNormal> <o:p></o:p></p>
</div>
<p><span style='font-size:7.5pt;font-family:"Comic Sans MS";color:navy'>Regards,<br>
<br>
Steve Barker<br>
</span><strong><span style='font-size:7.5pt;font-family:"Comic Sans MS";
color:#FF8000'>Webdata Ltd</span></strong><span style='font-size:7.5pt;
font-family:"Comic Sans MS";color:navy'><br>
</span><strong><span style='font-size:7.5pt;font-family:"Comic Sans MS";
color:#FF8000'>ph +64 9 4103074</span></strong><span style='font-size:7.5pt;
font-family:"Comic Sans MS";color:navy'> </span><o:p></o:p></p>
<div>
<p class=MsoNormal> <o:p></o:p></p>
</div>
</div>
</div>
</body>
</html>