🚀 go-pugleaf

- Bill,
Based on your declarations here, it looks like you have declared the
procedure at the unit level - not in the form class. The procedure needs to
be declared in the form class, otherwise the message won't be sent there.

I ran the code you have and it works.

hope this helps.

sincerely,
John Scalco
Software Developer/Consultant



Bill Artemik <bill@droste1.com> wrote in message
news:38aa7fb5.507930956@news3.newscene.com...
> I am writing a component that needs to respond to the form's
> OnActivate event.
>
> I have created a procedure:
>
> procedure WMActivate(var Message: TWMActivate);
> begin
>    if not (csDesigning in ComponentState) then
>        Case Message.Active of
>            WA_Active:      MyProcedure1;  {Form is being activated}
>            WA_Inactive:    MyProcedure2;  {Form is deactivating}
>        end;          { case }
> end;
>
> The interface is defined as:
>
> procedure WMActivate(var Message: TWMActivate); message WM_ACTIVATE;
>
> I stole this from the Forms.pas file figuring I could use it to grab
> the Windows message call (WA_Active) but I don't seem to get any
> response at run time.
>
> Any help?
>
>
>
>
> -----
> Bill Artemik
> Software Engineer
> Droste Consultants, Inc.
> bill@droste1.com
>
> -------------------------
>
> Attn: Spammers -> don't send to the following addresses:
> first.lady@whitehouse.gov consumerline@ftc.gov crc@ftc.gov fraud@uspis.gov
uce@ftc.gov rhunt@fcc.gov jquello@fcc.gov sness@fcc.gov rchong@fcc.gov
customer@usps.gov
> postmaster@agis.net abuse@agis.net root@agis.net dns-admin@agis.net
noc@agis.net
> hostmaster@agis.net phil@agis.net webmaster@agis.net document@agis.net
ip-request@agis.net routing@agis.net news@agis.net  accounting@agis.net
info@agis.net aapp@agis.net hr@agis.net
> emailer@qlink2info.com  simrem@answerme.com hostmaster@inreach.com
ap@inreach.com
> postmaster@emaildirect.net  abuse@emaildirect.net root@emaildirect.net
> postmaster@e-bizness.com abuse@e-bizness.com  root@e-bizness.com
comics@iaw.on.ca
> maxemail@united-cbe.org domreg@emaildirect.net domreg@hosting.netcom.com
> sales@marketingmasters.com  bizpro@softcom.net getpaid4@technosurf.com
> domreg@hosting.netcom.com aral@additionalbenefits.com lsims@ne.infi.net
> ltclinad@ne.infi.net ltperdir@ne.infi.net abuse@alladvantage.com
abuse@hotmail.com
>