How to Validate data 'OnExit' using ClientEvents?

[mhmda]

Hi...

 

I want to validate input data to edit control at client side using the "clientevents" property on the Form, how can I do that?

 

I want to do this:

procedure TMainForm.UniEdit2Exit(Sender: TObject);
var
a:double;
begin
if ansipos('.',UniEdit2.Text)=0 then
begin
  a:=strtofloat(UniEdit2.Text);
  UniEdit2.Text:=formatfloat('0.00',a);
end;
end;

 

Thank you,

[gerhard.kimmeringer]

I think you don't need clientevents.

 

Only onchange

 

or onkeypress