Les TEdits dans une Scrollbox

Question

Pour des faire un affichage, &#224; chaque fois que je rentre un chiffre, je cr&#233;&#233; 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&#233;cifi&#233; la taille du texte qui appara&#238;tra dans les TEdit que l&#146;on cr&#233;&#233;s  


Et en plus j&#146;ai un plac&#233; un bouton pour effacer. Il vide bien le tableau dynamique, mais pas la ScrollBox. Comment faire pour effacer les TEdit cr&#233;&#233;s dans la ScrollBox

ni69 · Answer

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

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! www.ni69.new.fr

m_cyril1 · Answer

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

Les TEdits dans une Scrollbox

2 réponses

Votre réponse

Discussions similaires