cs_othland
Messages postés298Date d'inscriptionjeudi 18 décembre 2003StatutMembreDernière intervention 9 février 2010
-
10 août 2007 à 16:35
Guillemouze
Messages postés991Date d'inscriptionsamedi 25 octobre 2003StatutMembreDernière intervention29 août 2013
-
11 août 2007 à 00:05
salut tout le monde!
j'ai 2 petites questions :
1- dans une fenêtre, j'ai plusieurs labels et quand je rajoute un composant TImage pour mettre une image de fond, il me cache mes labels même qued je met ce dernier en arrière plan et mes labels en avant plan (dans la position de contrôle), je trouve ça vraiment bizarre!! lorsque j'execute pour la première fois, mes labels restent visibles pour une fraction de seconde puis ils disparaissent!!
2- y a t il une fonction qui vérifie si le contenu de TEdit est purement numérique, c'est a dire qu'il ne contient pas de caractères alphabétiques ni de caractères spéciaux!
Nicolas___
Messages postés992Date d'inscriptionjeudi 2 novembre 2000StatutMembreDernière intervention24 avril 20131 10 août 2007 à 20:46
pour le 1 il y a une solution , meme 2 :
soit tu mets 1 timer et tu mets ceci dedans :
label1.BringToFont . ( et ca pour tt tes labels )
soit tu fais ca : tu coupe tt tes labels sur ta fiche , tu place ton TImage et puis tu colle les labels et par miracle il se place au dessus du TImage (enfin moi ca marche)
f0xi
Messages postés4205Date d'inscriptionsamedi 16 octobre 2004StatutModérateurDernière intervention12 mars 202235 10 août 2007 à 21:17
mets ton TImages sur : enable = false
pour la saisie de valeur purement numerique :
evenement OnKeyPress du TEdit ...
procedure TFormX.EditNKeyPress(Sender : TObject; var Key : char);
begin
if not (Key in ['0'..'9','-',#8]) then Key := #0;
end;
pour verifier qu'une chaine ne contient que des chiffres :
function IsNumericStr(const S : string) : boolean;
var L,N : integer;
begin
L := Length(S);
N := 1;
Result := S[N] in ['0'..'9'];
while Result and (N < L) do
begin
N := N + 1;
Result := S[N] in ['0'..'9'];
end;
end;
Guillemouze
Messages postés991Date d'inscriptionsamedi 25 octobre 2003StatutMembreDernière intervention29 août 20136 11 août 2007 à 00:05
Pour le 2, fait bien attention au copier/coller, qui ne genere pas de keypress !!!
tu peux essayer de mettre le code sur le onchange, ou une fonction de validation sur le OnExit peut etre... a toi de voir ce qui te convient le plus