Rendre visible un objet [Résolu]
gabs77
- Messages postés
- 380
- Date d'inscription
- mardi 6 décembre 2005
- Dernière intervention
- 8 octobre 2008
- Messages postés
- 3982
- Date d'inscription
- mardi 8 mars 2005
- Dernière intervention
- 7 novembre 2014
A voir également:
- Hide visible pascal object
- Visible delphi - Meilleures réponses
- Rendre visible les méthodes et propriétés d'un objet COM ✓ - Forum - C# / .NET
- PDA : Rendre visible ou invisible une application (icone) (codewarrior) - CodeS SourceS - Guide
- Rendre visible une page contenu dans une multipage ✓ - Forum - Visual Basic 6
- Rendre visible une requete formulaire ✓ - Forum - PHP
- Rendre visible/invisible un clip par rollover ✓ - Forum - Flash
6 réponses
Meilleure réponse
- Messages postés
- 1270
- Date d'inscription
- samedi 14 août 2004
- Dernière intervention
- 5 avril 2012
Donc ce n'est pas les rendre visible, c'est plutot une création dynamique de tes composants.
Il faut modifier ton code comme suit :
const
LABELS_MAX = 500 ;
var
i : integer;
Lbl : array of TLabel;
begin
randomize; // Appel une seul fois
setlength(Lbl,LABELS_MAX); // Dimensionner ton tableau dynamique
for i := 0 to LABELS_MAX-1 do
begin
Lbl[i] := TLabel.Create(form1);
with Lbl[i] do
begin
Parent := form1 ;
Top := random(Form1.Height);
Left := random(Form1.Width);
Width := 100 ;
Height := 13;
Caption := ' !! Test !! ';
Visible := true ;
Application.ProcessMessages; // Pour rendre la main au système
end ;
end;
end;
ATTENTION !!! Je modifier ton code pour le faire fonctionner, mais il ne faudra pas oublier de libérer les labels ainsi que le tableau dynamique. Ne sachant pas ce que tu comptes en faire, je te laisse le soin de le faire.
Cordialement.
<hr />"L'imagination est plus importante que le savoir." Albert Einstein
Il faut modifier ton code comme suit :
const
LABELS_MAX = 500 ;
var
i : integer;
Lbl : array of TLabel;
begin
randomize; // Appel une seul fois
setlength(Lbl,LABELS_MAX); // Dimensionner ton tableau dynamique
for i := 0 to LABELS_MAX-1 do
begin
Lbl[i] := TLabel.Create(form1);
with Lbl[i] do
begin
Parent := form1 ;
Top := random(Form1.Height);
Left := random(Form1.Width);
Width := 100 ;
Height := 13;
Caption := ' !! Test !! ';
Visible := true ;
Application.ProcessMessages; // Pour rendre la main au système
end ;
end;
end;
ATTENTION !!! Je modifier ton code pour le faire fonctionner, mais il ne faudra pas oublier de libérer les labels ainsi que le tableau dynamique. Ne sachant pas ce que tu comptes en faire, je te laisse le soin de le faire.
Cordialement.
<hr />"L'imagination est plus importante que le savoir." Albert Einstein
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
90 internautes nous ont dit merci ce mois-ci
- Messages postés
- 3982
- Date d'inscription
- mardi 8 mars 2005
- Dernière intervention
- 7 novembre 2014
Petite précision concernant la libération : dans le Create du label, on met le owner. Le owner devient responsable de la libérationde l'objet, et le libérerat quand lui (le owner) serat détruit.
Autrement dit, les labels sont détruits proprement à la destruction de Form1 dans l'exemple ci-dessus.
En Delphi les tableaux dynamiques sont sensés être aussi désalloués automatiquement.
Autrement dit, les labels sont détruits proprement à la destruction de Form1 dans l'exemple ci-dessus.
En Delphi les tableaux dynamiques sont sensés être aussi désalloués automatiquement.
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
90 internautes nous ont dit merci ce mois-ci
- Messages postés
- 1270
- Date d'inscription
- samedi 14 août 2004
- Dernière intervention
- 5 avril 2012
- Messages postés
- 380
- Date d'inscription
- mardi 6 décembre 2005
- Dernière intervention
- 8 octobre 2008
désolé, je me suis mal exprimé, effectivement la méthode que tu me propose fonctionne mais si je défini sur la form le composant.
Ce que j'aimerai savoir c'est plus un truc qui doit ressembler à ça, je pense :
var
i : integer;
Lbl : array of TLabel;
begin
for i := 0 to 500 do
begin
Lbl[i] := TLabel.Create(???);
randomize;
Lbl[i].Top := random(Form1.Top);
randomize;
Lbl[i].Left := random(Form1.Left);
Lbl[i].Caption := ' !! Test !! ';
end;
Ce que j'aimerai savoir c'est plus un truc qui doit ressembler à ça, je pense :
var
i : integer;
Lbl : array of TLabel;
begin
for i := 0 to 500 do
begin
Lbl[i] := TLabel.Create(???);
randomize;
Lbl[i].Top := random(Form1.Top);
randomize;
Lbl[i].Left := random(Form1.Left);
Lbl[i].Caption := ' !! Test !! ';
end;
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.