Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

procedure CMExit(var Message: TCMExit); message CM_EXIT; does not work

239 views
Skip to first unread message

mix

unread,
May 6, 2006, 9:07:54 AM5/6/06
to

Hi

I have my component (descendant of TCustomEdit) for years that has in private declaration this procedure:
procedure CMExit(var Message: TCMExit); message CM_EXIT;
It works something on exit from edit control

Now i have put this componento on one descendant of TOpenDialog class. The problem is, that this message newer happen after exit of control.

Any idea?

BR

Peter Below (TeamB)

unread,
May 7, 2006, 5:11:43 AM5/7/06
to

The CM_EXIT message is something a TCustomform generates when the focus moves
out of a control it hosts. But a TOpenDialog is not a Delphi form, it is a
Windows common dialog (a Windows "form") and it does not know how to spell
CM_EXIT.

Have your control react to the WM_KILLFOCUS message, that is the closest API
equivalent to CM_EXIT.


--
Peter Below (TeamB)
Don't be a vampire (http://slash7.com/pages/vampires),
use the newsgroup archives :
http://www.tamaracka.com/search.htm
http://groups.google.com
http://www.prolix.be


0 new messages