Re: Why don't modal windows flash?

Article View: borland.public.delphi.nativeapi

Article #156

Back to borland.public.delphi.nativeapi Previous Next

#156

From: Rodrigo.net
Date: Wed, 21 Jan 2004 12:13

15 lines
1317 bytes

Ok, here is a workaround:

Override CreateParams like the following:

procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.WndParent := GetActiveWindow;
end;

It works fine.

For MessageBoxes use MessageBox API:

MessageBox(GetActiveWindow, 'something', 'something', MB_ICONINFORMATION);

Technical Details

Message-ID: <400e6d03@newsgroups.borland.com>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail

References: <400d8626@newsgroups.borland.com> <400e61ef@newsgroups.borland.com> <400e6899@newsgroups.borland.com>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f94dd,e2ceacf656009080
X-Google-Attributes: gidf94dd,public
X-Google-ArrivalTime: 2004-01-21 04:39:46 PST
From: "Rodrigo.net" <rodrigol@bigfoot.com>
Newsgroups: borland.public.delphi.nativeapi
References:  <400d8626@newsgroups.borland.com> <400e61ef@newsgroups.borland.com> <400e6899@newsgroups.borland.com>
Subject: Re: Why don't modal windows flash?
Date: Wed, 21 Jan 2004 10:13:54 -0200
Lines: 17
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
NNTP-Posting-Host: 200.215.36.93
Message-ID: <400e6d03@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1074687235 200.215.36.93 (21 Jan 2004 04:13:55 -0700)
Path: arc1-ca.pugleaf.net!archiver1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!newsgroups.borland.com!not-for-mail

Reply to Parent Message