<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">


<META name=GENERATOR content="MSHTML 8.00.6001.18852"></HEAD>
<BODY>
<DIV><FONT size=2 face=Arial><SPAN 
class=096140922-19012010>Hi,</SPAN></FONT></DIV>
<DIV><FONT size=2 face=Arial><SPAN 
class=096140922-19012010></SPAN></FONT>&nbsp;</DIV>
<DIV><FONT size=2 face=Arial><SPAN class=096140922-19012010>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></FONT></DIV>
<DIV><FONT size=2 face=Arial><SPAN 
class=096140922-19012010></SPAN></FONT>&nbsp;</DIV>
<DIV><FONT size=2 face=Arial><SPAN class=096140922-19012010>The code that should 
fire is:</SPAN></FONT></DIV>
<DIV><FONT size=2 face=Arial><SPAN 
class=096140922-19012010></SPAN></FONT>&nbsp;</DIV>
<DIV><FONT size=2 face=Arial><SPAN class=096140922-19012010>&nbsp; 
messagedlg(msg, mtCustom, [mbOk], 0);<BR></SPAN></FONT></DIV>
<DIV><FONT size=2 face=Arial><SPAN class=096140922-19012010>It is being ignored 
when run under normal Windows 7 default mode.</SPAN></FONT></DIV>
<DIV><FONT size=2 face=Arial><SPAN 
class=096140922-19012010></SPAN></FONT>&nbsp;</DIV>
<DIV><FONT size=2 face=Arial><SPAN class=096140922-19012010>Any 
ideas?</SPAN></FONT></DIV>
<DIV><FONT size=2 face=Arial><SPAN 
class=096140922-19012010></SPAN></FONT>&nbsp;</DIV>
<DIV><FONT size=2 face=Arial><SPAN class=096140922-19012010>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.</DIV></SPAN></FONT>
<DIV><FONT size=2 face=Arial></FONT>&nbsp;</DIV><!-- Converted from text/plain format -->
<P align=left><FONT color=#000080 size=1 
face="Comic Sans MS">Regards,<BR><BR>Steve Barker<BR><FONT 
color=#ff8000><STRONG>Webdata Ltd</STRONG></FONT><BR><STRONG><FONT 
color=#ff8000>ph +64 9 4103074</FONT></STRONG> </FONT></P>
<DIV>&nbsp;</DIV></BODY></HTML>