Ceci un librairie ou dll qui controle les entrees des utilisateurs dans un TEdit.Limitation des entrees a des chiffres entiers ou avec virgules.L'edition acceptant le retour de chariot.
Vous appelerez les fonction par les evenements de Tedit OnKeyPress
qui accepte une variable Char.
Exemple:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
IntKey(Key);
end;
Pour importer les fonctions dans le programme,exemple:
var
Form1: TForm;
IntKey:procedure(var m:Char);stdcall;
RealKey:procedure(var m:Char);stdcall;