or....write your own dialogs :-)<br><br>jeremy<br><br><div class="gmail_quote">On Tue, Aug 24, 2010 at 10:32 AM, John Bird <span dir="ltr"><<a href="mailto:johnkbird@paradise.net.nz">johnkbird@paradise.net.nz</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
<div style="padding-left: 10px; padding-right: 10px; padding-top: 15px;" link="blue" vlink="purple" name="Compose message area" lang="EN-NZ">
<div><font face="Arial" size="2">Not just Delphi - its an ancient Windows problem
AFAIK. Even in Windows 7 I have seen a control panel
applets puts a modal dialog behind the window - often the best solution is
Windows+D (show desktop) and go thru all windows with alt+Tab and usually
the hidden modal dialog is found. Usually.</font></div>
<div><font face="Arial" size="2"></font> </div>
<div><font face="Arial" size="2">John</font></div><div><div></div><div class="h5">
<div><font face="Arial" size="2"></font><br> </div>
<div>
<p class="MsoNormal"><span style="color: rgb(31, 73, 125);">HI have seen this even happen in
D2007 ! so I am not sure if it has been sorted in later Delphi versions. I have
seen other Windows apps. Not written in Delphi Exhibit the same thing, so is it
a Delphi thing, or a Windows thing?? P.s this happens on XP, Vista and Win7 that
I have noticed.</span></p>
<p class="MsoNormal"><span style="color: rgb(31, 73, 125);"> </span></p>
<p class="MsoNormal"><span style="color: rgb(31, 73, 125);">Jeremy</span></p>
<p class="MsoNormal"><span style="color: rgb(31, 73, 125);"> </span></p>
<div>
<div style="border-width: 1pt medium medium; border-style: solid none none; border-color: rgb(181, 196, 223) -moz-use-text-color -moz-use-text-color; padding: 3pt 0cm 0cm;">
<p class="MsoNormal"><b><span style="font-size: 10pt;" lang="EN-US">From:</span></b><span style="font-size: 10pt;" lang="EN-US"> <a href="mailto:delphi-bounces@delphi.org.nz" target="_blank">delphi-bounces@delphi.org.nz</a>
[mailto:<a href="mailto:delphi-bounces@delphi.org.nz" target="_blank">delphi-bounces@delphi.org.nz</a>] <b>On Behalf Of </b>Ross
Levis<br><b>Sent:</b> Friday, 20 August 2010 22:04<br><b>To:</b> 'NZ Borland
Developers Group - Delphi List'<br><b>Subject:</b> [DUG] SetWindowPos
HWND_TOPMOST</span></p></div></div>
<p class="MsoNormal"> </p>
<p class="MsoNormal"><span style="color: rgb(31, 73, 125); font-size: 12pt;">I have a window
in my app which needs to be set to stay on top of all others. In D7, if a
modal dialog is activated from this window such as a TOpenFile, it appears
underneath the window. I believe later versions of Delphi resolve this
problem.</span></p>
<p class="MsoNormal"><span style="color: rgb(31, 73, 125); font-size: 12pt;"> </span></p>
<p class="MsoNormal"><span style="color: rgb(31, 73, 125); font-size: 12pt;">I got around
the issue by using SetWindowPos with HWND_NOTOPMOST just before the dialog is
activated, and set it back again afterwards.</span></p>
<p class="MsoNormal"><span style="color: rgb(31, 73, 125); font-size: 12pt;"> </span></p>
<p class="MsoNormal"><span style="color: rgb(31, 73, 125); font-size: 12pt;">This works well
generally, but a few users have complained of the entire app hanging either
before the dialog appears or after it closes. I’ve noticed this maybe
twice over the last few years using XP.</span></p>
<p class="MsoNormal"><span style="color: rgb(31, 73, 125); font-size: 12pt;"> </span></p>
<p class="MsoNormal"><span style="color: rgb(31, 73, 125); font-size: 12pt;">Is this an XP
bug or Delphi getting confused?</span></p>
<p class="MsoNormal"><span style="color: rgb(31, 73, 125); font-size: 12pt;"> </span></p>
<p class="MsoNormal"><span style="color: rgb(31, 73, 125); font-size: 12pt;">Perhaps I
should try a Application.ProcessMessages after the
SetWindowsPos.</span></p>
<p class="MsoNormal"><span style="color: rgb(31, 73, 125); font-size: 12pt;"> </span></p>
<p class="MsoNormal"><span style="color: rgb(31, 73, 125); font-size: 12pt;">Ross.</span></p></div>
</div></div><p>
</p><hr>
<p></p>_______________________________________________<br>NZ Borland Developers
Group - Delphi mailing list<br>Post: <a href="mailto:delphi@delphi.org.nz" target="_blank">delphi@delphi.org.nz</a><br>Admin:
<a href="http://delphi.org.nz/mailman/listinfo/delphi" target="_blank">http://delphi.org.nz/mailman/listinfo/delphi</a><br>Unsubscribe: send an email to
<a href="mailto:delphi-request@delphi.org.nz" target="_blank">delphi-request@delphi.org.nz</a> with Subject: unsubscribe</div>
<br>_______________________________________________<br>
NZ Borland Developers Group - Delphi mailing list<br>
Post: <a href="mailto:delphi@delphi.org.nz">delphi@delphi.org.nz</a><br>
Admin: <a href="http://delphi.org.nz/mailman/listinfo/delphi" target="_blank">http://delphi.org.nz/mailman/listinfo/delphi</a><br>
Unsubscribe: send an email to <a href="mailto:delphi-request@delphi.org.nz">delphi-request@delphi.org.nz</a> with Subject: unsubscribe<br></blockquote></div><br>