Contôles sur les Tedit et Maskedit [Résolu]
- Contôles sur les Tedit et Maskedit
- Enregistrer le contenu de tous les tedit dans un fichier » Codes sources - Delphi / Pascal (Fichier / Disque)
- Un tedit qui n'accepte que des valeurs numériques » Codes sources - Delphi / Pascal (Texte)
- Maskedit : masques de saisie !!! (dates, nombres, chaines...) » Codes sources - Javascript (Formulaire)
- Saisie d'un chiffre (et d'un seul) dans un tedit » Codes sources - Delphi / Pascal (Texte)
- Un tedit uniquement numérique » Codes sources - Delphi / Pascal (Composants)
15 réponses
procedure TForm1.MaskEdit1Change(Sender: TObject);
begin
{ Teste la validité de la date, déclenche une erreur si incorrecte }
if StrToDateDef(MaskEdit1.Text, -1) = -1 then
begin
MaskEdit1.Text := '';
raise Exception.Create('La date est incorrecte !');
end;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
{ Met le premier caractère en majuscules }
if Length(Edit1.Text) > 0 then Edit1.Text[1] := Uppercase(Edit1.Text[1])[1];
end;
Cordialement, Bacterius !
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 89 internautes ce mois-ci
dans un combobox ou un db combobox on lesse le 1ere Items vide pour que lorsque en fait l'enregistrement des donner s'effacent
si tu peut m'aider encore
et surtout merci infiniment
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 89 internautes ce mois-ci
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 89 internautes ce mois-ci
pour le composant combobox:
combobox1.itemindex:=-1;
ou dbcombobox1.itemindex:=-1;
yahia
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 89 internautes ce mois-ci
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 89 internautes ce mois-ci
Cordialement, Bacterius !
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 89 internautes ce mois-ci
pour la date je te propose d'ajouter un datetimepicker dans ton projet
Edit1.Text := dateTimeToStr(DateTimePicker1.Date);
pour éviter les erreurs.
bonne chance.
yahia
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 89 internautes ce mois-ci
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 89 internautes ce mois-ci
J'ai essaye ton code concernant la première lettre en majuscule dans un dblookupcombobox.
Le code:
procedure tform1.edit1change(sender: tobject);
Begin
{ met le premier caractère en majuscules }
if length(edit1.text) > 0 then edit1.text[1] := uppercase(edit1.text[1])[1];
end;
Mais Delphi m'affiche une erreur dans la ligne suivante
edit1.text[1] := uppercase(edit1.text[1])[1];.
Merci
yahia
Ceci marche :
Var S: String; begin S := Edit1.Text; S[1] := uppercase(S[1])[1]; Edit1.Text := S; end;
Cela dit je crois qu'il existe une manoeuvre moins lourde, mais j'ai dû oublier comment faire ...
Cordialement, Bacterius !
UpCase & LowCase --> pour un caractère
UpperCase & LowerCase --> pour une chaine de caractères
sinon pour être certain d'avoir le premier caractère en majuscule et tous les suivants en minuscules voir ce Snippet
en plus il accepte même les caractères accentués
[hr]@+Cirec
[hr]
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.