procedureTForm3.EditMontanteffectuerExit(Sender: TObject); begin if EditMontanteffectuer.Modified then begin M:=strtofloat(EditMontantGlobMar.Text); ME:=strtofloat(EditMontanteffectuer.Text); Y:= (M*80)/100; if ME>y-1 then begin showmessage('Attention vous avez dépasser les 80%'!'); EditMontanteffectuer.SelectAll; EditMontanteffectuer.SetFocus; end; end; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question