On Tue, 5 Aug 2003, L D Blake wrote:
} // Message dispatcher for all windows
} while GetMessage(WMsg,0,0,0) do
}begin
} if not IsDialogMessage(getforegroundwindow,wmsg) then
}begin
} TranslateMessage(WMsg);
} DispatchMessage(WMsg);
}end;
}end;
}
}I
In reply to your message of August 5, 2003
> Nice and simple.
I like "nice and simple"
> Don't know about Matt but thanks from here; I have
> bounced into this problem now and then and used all kinds of ugly
> solutions :-)
My pleasure.
-
L D Blake
A little while back Matt Emson helped me with the message dispatcher for
windows programs... we arrived at something like this:
> while GetMessage(@oMsg,0, 0, 0) do
> begin
> if not (IsDialogMessage(OHandle,omsg)) then
> begin
> TranslateMessage(oMsg);
>
> In reply to your message of July 23, 2003
>
>
> > The answer is simple, but very illusive!!!
>
> > while (GetMessage(wmsg, FWindowHandle, 0, 0)) do begin
> > if not ( IsDialogMessage(FWindowHandle, wmsg) ) then ///this is the
> > line you nees to add
> > TranslateMessage(wmsg);
> >
In reply to your message of July 23, 2003
> The answer is simple, but very illusive!!!
> while (GetMessage(wmsg, FWindowHandle, 0, 0)) do begin
> if not ( IsDialogMessage(FWindowHandle, wmsg) ) then ///this is the
> line you nees to add
> TranslateMessage(wmsg);
> DispatchMessage(
> Tabbing through controls is handled in DefDialogProc() when 1) dialog is
> modal or 2) you call IsDialogMessage() explicitly. I have no idea how to
> implement this when the buttons are inserted into a window of another
> class (when DefDialogProc is not the window procedure); certainly it is
> p
Tabbing through controls is handled in DefDialogProc() when 1) dialog is
modal or 2) you call IsDialogMessage() explicitly. I have no idea how to
implement this when the buttons are inserted into a window of another
class (when DefDialogProc is not the window procedure); certainly it is
possible so
actually does it all becomes clear.
Matt
- Original Message -
From: "L D Blake" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, July 23, 2003 3:17 AM
Subject: [fpc-pascal]Ummmm... anyone know why this doesn't work...
> Ok, 3 checkboxes define
Ok, 3 checkboxes defined on a small window on win2000...
s := 'Start processing when loaded';
OToy[1] := createwindow('Button',Cstr(S,cpt),ws_tabstop or
ws_child or ws_visible or bs_autocheckbox,
10,15,185,20,Ohandle,1,mdrProg,nil);
s := 'Exit when
