Re: TZF - not only a Topaz Problem Edit restriction

To Samuel and the Borland tip. There is a restriction

Maybe you make (as in the example of Boland)    > if not (Key in [#8,
'0'..'9', '-', DecimalSeparator]) then .....

In the input you can delete a char and then exit, e.g. by clicking another
button, then I get this EDBEditerror again

Is the onexit event  the latest possibility to control the content of the
Edit.text

I tried this onexit with

procedure TForm1.MaskEdit1Exit(Sender: TObject);
var
  r : real;
  i : integer;
begin
  val(maskedit1.Text,r,i);
  if i<>0 then maskedit1.SetFocus;
end;


but with no success.

How can I stay on the maskEdit  Focus

Thanks for your further help

Pierre Wittwer
CH Stans



> > Can you help me
> >
> > Pierre Wittwer
> > Stansstad
> > Switzerland
> >
> >
> >
> >
> >
> >
>
>
>
>
>
>

--^----------------------------------------------------------------
This email was sent to: [email protected]

EASY UNSUBSCRIBE click here: http://topica.com/u/?clvXPN.a5kvff.Z2NsZHQt
Or send an email to: [email protected]

TOPICA - Start your own email discussion group. FREE!
http://www.topica.com/partner/tag02/create/index2.html
--^----------------------------------------------------------------