From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,ffa808f2a3d381e4
X-Google-Attributes: gid103376,public
From: David Botton <David@Botton.com>
Subject: Re: Win32ADA Edit Control Notification
Date: 1999/05/06
Message-ID: <3731F7B8.2B80B74C@Botton.com>#1/1
X-Deja-AN: 474877905
Content-Transfer-Encoding: 7bit
References: <%fGV2.672$4S.363025@WReNphoon3> <7gsq1s$eml$1@nnrp1.deja.com>
X-Accept-Language: en
Content-Type: text/plain; charset=us-ascii
X-Trace: news1.iquest.net 926021414 204.180.46.127 (Thu,
 06 May 1999 15:10:14 EDT)
MIME-Version: 1.0
NNTP-Posting-Date: Thu, 06 May 1999 15:10:14 EDT
Newsgroups: comp.lang.ada
Date: 1999-05-06T00:00:00+00:00
List-Id: <comp.lang.ada>

It still is, but it should come in as a WM_COMMAND, not WM_SYSCOMMAND.

Try something like this:

      case message is
         when WM_COMMAND =>
            declare
               wmID              : Win32.WORD :=
                 Win32.WinDef.LOWORD(Win32.DWORD(WPARAM));
               Notification_Code : Win32.WORD :=
Win32.WinDef.HIWORD(Win32.DWORD(WPARAM));
           begin

                case Notification_Code is
                    when EN_KILLFOCUS =>
                    if wmID = MY_EDIT_CONTROL_ID then
                    .
                    .
                    .
                    when EN_UPDATE =>

           end;
        .
        .
        .

I use a system where I use the extra bits in a Windows window to store a pointer to
an Ada object and since the HWND is passed in the lParam:

               Control_Window : Pointer := To_GWindow(

Win32.WinUser.GetWindowLong(To_HWND(lParam),Win32.WinUser.GWL_UserData) );


Then I can dispatch the Notification_Code directly to the Ada object that handles
the control with:

return On_Message(Control_Window, Message, wParam, lParam);

Be well,
David Botton


guru_upya@yahoo.com wrote:

> In previous versions of Windows, the notification code was in HIWORD(lParam)
> for EN_KILLFOCUS. For the EN_CHANGE and ... UPDATE it is as follows in MFC
> EN_CHANGE idEditCtrl = (int) LOWORD(wParam); // identifier of edit control
> hwndEditCtrl = (HWND) lParam;  // handle of edit control
>
> Hope this helps,
>
> In article <%fGV2.672$4S.363025@WReNphoon3>,
>   sbarber@snet.net (Shawn Barber) wrote:
> > I tried to use an edit control for the first time in a piece of software I
> > am developing. I can't seem to
> > trap the EN_CHANGE and the EN_UPDATE messages. I have been able to trap the
> > EN_SETFOCUS
> > and EN_KILLFOCUS messages. I need some new things to try. I've tried
> > checking the high word of
> > the wParam of a WM_SYSCOMMAND with no luck.
> >
> > Shawn Barber
> > SBarber@Sikorsky.com
> >
> > **** Posted from RemarQ - http://www.remarq.com - Discussions Start Here (tm)
> ****
> >
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own