Les TEdits dans une Scrollbox

Signaler
Messages postés
59
Date d'inscription
mercredi 30 mars 2005
Statut
Membre
Dernière intervention
3 juin 2005
-
Messages postés
59
Date d'inscription
mercredi 30 mars 2005
Statut
Membre
Dernière intervention
3 juin 2005
-
Pour des faire un affichage, à chaque fois que je rentre un chiffre, je créé des TEdit dans une ScrollBox, avec le code suivant :
Procedure TCalcul.AffichageScroll;
var i:Integer;
begin
for i:=0 to n-1 do
begin
With TEdit.Create(Calcul.ScrollAffichage)do
begin
Parent:=Calcul.ScrollAffichage;
Text:=FloatToStr(Chiffres[i]);
Width:=41;
MaxLength:=4;
Height:=17;
Left:=45*i;
ReadOnly:=True;
end;
end;
end;


Je vous voudrais savoir comment faire pour spécifié la taille du texte qui apparaîtra dans les TEdit que l’on créés


Et en plus j’ai un placé un bouton pour effacer. Il vide bien le tableau dynamique, mais pas la ScrollBox. Comment faire pour effacer les TEdit créés dans la ScrollBox

2 réponses

Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
13
Pour changer la police, rajoute ces lignes :

Font.Name := 'Arial'; // Met la police Arial

Font.Size := 8; // La taille des caractères sera 8

Font.Color := clred; // Le texte sera en rouge

Font.Style := [fsbold]; // Le texte sera en gras



Pour supprimer un TEdit, il suffit d'appeler sa méthode Free :

Edit1.Free;



@+
Bonne Prog'
Nico

<hr>

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !




www.ni69.new.fr</italique>
Messages postés
59
Date d'inscription
mercredi 30 mars 2005
Statut
Membre
Dernière intervention
3 juin 2005

Changer la police ça va
Mais pour esupprimer les TEdit créés ça veut dire qu' il faut leurs donner un nom !
Comment il faut faire pour ça
J'ai essayé: name:=IntToStr(i); mais ça ne marche pas