LIBRAIRIE DE CONTROLE (FILTRE) DE TOUCHE DANS UN TEDIT

Signaler
Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
-
Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/45137-librairie-de-controle-filtre-de-touche-dans-un-tedit

Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
37
procedure RealKey(var m:Char);stdcall;export;
begin
if not (m in ['0'..'9',decimalseparator,#8]) then
m := #0;
end;

procedure IntKey(var m:Char);stdcall;export;
begin
if not (m in ['0'..'9',#8]) then
m := #0;
end;