LIBRAIRIE DE CONTROLE (FILTRE) DE TOUCHE DANS UN TEDIT
f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
-
20 déc. 2007 à 09:49
f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 - 20 déc. 2007 à 09:49
f0xi Messages postés 4205 Date d'inscription samedi 16 octobre 2004 Statut Modérateur Dernière intervention 12 mars 2022 - 20 déc. 2007 à 09:49
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
https://codes-sources.commentcamarche.net/source/45137-librairie-de-controle-filtre-de-touche-dans-un-tedit
20 déc. 2007 à 09:49
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;