That WAS my solution. All I did was put that code into the OnPaint Event. I.e. :-
procedure TfrmEditAccount.FormShow(Sender: TObject); begin SetWindowPos(Handle, HWND_TOPMOST, Self.left, self.top, 0, 0, SWP_NOACTIVATE or SWP_NOSIZE); end; Jeremy -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Neven MacEwan Sent: Friday, 19 September 2003 08:25 To: Multiple recipients of list delphi Subject: Re: [DUG]: This has been raised before BUT J Can you post your full solution please N ----- Original Message ----- From: "Jeremy Coulter" <[EMAIL PROTECTED]> To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]> Sent: Friday, September 19, 2003 8:12 AM Subject: RE: [DUG]: This has been raised before BUT > I have never been able to reproduce it, but the client can easily, or > rather WAS able to. They are happy now. > > -----Original Message----- > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] > On Behalf Of Rohit Gupta > Sent: Thursday, 18 September 2003 13:16 > To: Multiple recipients of list delphi > Subject: RE: [DUG]: This has been raised before BUT > > > Rats, I cant reproduce it now to test either solution :-) > > To: Multiple recipients of list delphi > <[EMAIL PROTECTED]> > Send reply to: [EMAIL PROTECTED] > From: "Jeremy Coulter" <[EMAIL PROTECTED]> > Subject: RE: [DUG]: This has been raised before BUT > Date sent: Wed, 17 Sep 2003 22:47:39 +1200 > > > Well this seemed to have helped Neven. > > I used :- SetWindowPos(Handle, HWND_TOPMOST, Self.left, self.top, > 0, > > 0, SWP_NOACTIVATE or SWP_NOSIZE); > > And the user said that the messagedlg was shown on top of the > > "StayOnTop" window, so that's good. > > > > Jeremy > > > > -----Original Message----- > > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] > > On Behalf Of Neven MacEwan > > Sent: Wednesday, 17 September 2003 14:35 > > To: Multiple recipients of list delphi > > Subject: Re: [DUG]: This has been raised before BUT > > > > > > J > > > > Don't know if this will help but this snippet came from the > > woll2woll controls (they 'fake' combos by using 2 windows) > > > > if (ParentForm <> nil) and > > (TForm(ParentForm).FormStyle=fsStayOnTop) > > then > > WinAttribute:= HWND_TOPMOST; > > SetWindowPos(Handle, WinAttribute, At.X, At.Y, 0, 0, SWP_NOACTIVATE > > or SWP_NOSIZE); > > > > N > > > > > > ----- Original Message ----- > > From: "vss" <[EMAIL PROTECTED]> > > To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]> > > Sent: Wednesday, September 17, 2003 1:38 PM > > Subject: [DUG]: This has been raised before BUT > > > > > > > Hi All. > > > I seem to remember some time back that someone raised a problem > > > with dialog boxes appearing behind other forms. > > > > > > I have a situation where I have a form that is a "Stay On Top" > > > form so > > > > > that when the form is open, data can still be processed in the > > > background, as it stops if I show the for modal. The user might > delete > > > > > a record, and a msg box will be shown to tell them to confirm the > > > delete. BUT this consistantly appears begind the "Stay On Top" > > > form, > > > > and they think app, has frozen. > > > > > > Was there a solution to this problem? > > > > > > Jeremy > > > > > > ------------------------------------------------------------------ > > > -- > > > -- > > > ---- > > - > > > New Zealand Delphi Users group - Delphi List - > > [EMAIL PROTECTED] > > > Website: http://www.delphi.org.nz > > > To UnSub, send email to: [EMAIL PROTECTED] > > > with body of "unsubscribe delphi" > > > Web Archive at: > > > http://www.mail-archive.com/delphi%40delphi.org.nz/ > > > > > > > > > > -------------------------------------------------------------------- > > -- > > -- > > --- > > New Zealand Delphi Users group - Delphi List - > [EMAIL PROTECTED] > > Website: http://www.delphi.org.nz > > To UnSub, send email to: [EMAIL PROTECTED] > > with body of "unsubscribe delphi" > > Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ > > > > > > > > > ---------------------------------------------------------------------- > -- > --- > > New Zealand Delphi Users group - Delphi List - > [EMAIL PROTECTED] > > Website: http://www.delphi.org.nz > > To UnSub, send email to: [EMAIL PROTECTED] > > with body of "unsubscribe delphi" > > Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ > > > > Regards > > Rohit > > ====================================================================== > CFL - Computer Fanatics Ltd. 21 Barry's Point Road, AKL, New Zealand > PH (649) 489-2280 > FX (649) 489-2290 > email [EMAIL PROTECTED] or [EMAIL PROTECTED] > ====================================================================== > > ---------------------------------------------------------------------- > -- > --- > New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] > Website: http://www.delphi.org.nz > To UnSub, send email to: [EMAIL PROTECTED] > with body of "unsubscribe delphi" > Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ > > ---------------------------------------------------------------------- > ---- - > New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] > Website: http://www.delphi.org.nz > To UnSub, send email to: [EMAIL PROTECTED] > with body of "unsubscribe delphi" > Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ > > ------------------------------------------------------------------------ --- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ --------------------------------------------------------------------------- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
