[DUG] Edit box exit event

[Ross Levis]

What I usually do is remove the OnExit assignment when I don't want it 
to fire and put it back again afterwards.  eg.

MyEdit.OnExit := nil;
DoSomething;
MyEdit.OnExit := MyEditExit;

Regards,
Ross.

----- Original Message ----- 
From: "John Bird" <johnkbird at paradise.net.nz>
To: "'NZ Borland Developers Group - Delphi List'" <delphi at ns3.123.co.nz>
Sent: Wednesday, January 25, 2006 9:45 AM
Subject: [DUG] Edit box exit event


On an edit box (TEdit), in the exit event I often will have some
verification code for any alteration made to the text.

However sometimes I don't want it to fire, for example if elsewhere on 
the
form is an unrelated button eg "Setup Options" and the user clicks there 
in
this case I just want focus to go to the other control, without firing 
the
exit event.  (I don't mind losing the contents or the checking of the 
Tedit
in this case, as the user has elected to do something unrelated). 
However
the exit event on the Tedit fires before any event code on the Tbutton
(Setup Options) fires.

It seems to me to require code in the Tedit exit event checking how the 
exit
has been fired...whether by Tab key, or by clicking elsewhere.  But this
gets quite tedious if there is a screen of Tedits.  And it has to be 
smart -
if the user has just clicked on the next Tedit field, in that case I 
would
want the exit event on the previous one to still fire.

How do others do this - is there an elegant way?

John


_______________________________________________
Delphi mailing list
Delphi at ns3.123.co.nz
http://ns3.123.co.nz/mailman/listinfo/delphi