dalatifa
Messages postés22Date d'inscriptionsamedi 21 mai 2005StatutMembreDernière intervention 2 octobre 2007
-
18 août 2005 à 12:55
dalatifa
Messages postés22Date d'inscriptionsamedi 21 mai 2005StatutMembreDernière intervention 2 octobre 2007
-
22 août 2005 à 13:38
Salut tt le monde , j'ai besoin d'utiliser une zone de texte où l'utilisateur peut saisir que des chiffres alignés à droite, j'ai essayé edit il n'a pas la propriété alignement, et si j'utilise BIDIMODE il influence sur les flèches de direction , ce n'est vraiement pas impécable, j'ai essayé trichedit son prob c'est qu'il fait des retours en lignes automatiquement.
alors,vous avez une solution pr moi SVP? j'en ai vraiement besoin.
MERCI
if length(buffer)=10 then key:=#0; //on limite la saisie
if key='-' then
begin
buffer:= lines[0];
if buffer='' then buffer:='0';
if buffer<>'0' then
begin
if pos('-',buffer)=0 then buffer:='-'+buffer
else delete(buffer,1,1);
end;
lines[0]:=buffer;key:=#0;
end;
if not(key in valid) then key:=#0;
if key=#13 then
begin
key:=#0;// pour l'exemple rajoute ici ton traitement de donnée
end;
end;
end;
une chose, j'ai constaté que si les lines du memo étaient
initialisées par défaut la limitattion ne faisait pas toujours effet
donc: dans l'éditeur il faut initialiser les lines du memo sans
retour a ligne (tu effaces tout) et si tu rentre une valeur ne fais pas
entree.
jlen100
Messages postés1606Date d'inscriptionsamedi 10 juillet 2004StatutMembreDernière intervention25 juillet 201413 18 août 2005 à 18:22
je viens de tester ceci:
tu rajoutes un test du #13(retour chariot) et une condition de longueur de saisie (10 caractères dans
l'exemple) car je suppose que ton nombre de chiffres n'est pas infini
!!! et tu fait ta fenêtre dee saisie en conséquence.
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);