🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: borland.public.cppbuilder.nativeapi
Article #15671

Re: Modal Form Fun not

#15671
From: vERUs
Date: Fri, 20 Jun 2003 09:38
19 lines
1411 bytes
I believe this is fixed in BCB6, but I had the same problem a while ago in
BCB3.
I solved it catching the WM_ACTIVATE message.

void __fastcall Activated(TMessage &Msg);

BEGIN_MESSAGE_MAP
   MESSAGE_HANDLER(WM_ACTIVATE, TMessage, Activated)
END_MESSAGE_MAP(TForm)


void __fastcall TForm1::Activated(TMessage &Msg)
{
     if (Msg.WParamLo == WA_ACTIVE && Msg.WParamHi == 0)
        Application->BringToFront();
}


/ vERUs
Technical Details
Message-ID: <3ef2d604@newsgroups.borland.com>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-01!sn-xit-09!supernews.com!news.maxwell.syr.edu!nntp-relay.ihug.net!newsfeeds.ihug.co.nz!ihug.co.nz!newsgroups.borland.com!not-for-mail
References: <3EF2A9F1.1F93B6F@ValidEmail.Address> <VA.00001d98.041214db@email.address.sorry>

Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 10cc67,7b2f772e02323164
X-Google-Attributes: gid10cc67,public
X-Google-ArrivalTime: 2003-06-20 02:56:13 PST
From: "vERUs" <verus@privat.utfors.se>
Newsgroups: borland.public.cppbuilder.nativeapi
References: <3EF2A9F1.1F93B6F@ValidEmail.Address> <VA.00001d98.041214db@email.address.sorry>
Subject: Re: Modal Form Fun not
Date: Fri, 20 Jun 2003 11:38:28 +0200
Lines: 21
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4920.2300
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4920.2300
NNTP-Posting-Host: 212.105.6.254
Message-ID: <3ef2d604@newsgroups.borland.com>
X-Trace: newsgroups.borland.com 1056101892 212.105.6.254 (20 Jun 2003 02:38:12 -0700)
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-01!sn-xit-09!supernews.com!news.maxwell.syr.edu!nntp-relay.ihug.net!newsfeeds.ihug.co.nz!ihug.co.nz!newsgroups.borland.com!not-for-mail