Ajouter un objet (ici label pour l'exemple) dynamiquement sur votre feuille
Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 404 fois - Téléchargée 36 fois
Contenu du snippet
C'est un petit code sans grande pretention, mais j'ai chercher ici comment faire et je n'ai pas trouver.
Je pense que cela marche pour tout type d'objet, mais c'est à tester.
Je pense que cela marche pour tout type d'objet, mais c'est à tester.
Source / Exemple :
procedure creerlabel(hcaption : string;hheight : integer;hwidth : integer;hleft : integer;htop : integer);
var
newlabel : TLabel;
begin
newlabel := Tlabel.Create(Form1);
with newlabel do
begin
Parent := Form1;
left := hleft;
top := htop;
height := hheight;
width := hwidth;
caption := hcaption;
end;
end;
{ensuite on appele la fonction comme tel :}
creerlabel('je suis un new label',20,200,50,50);
{Crée un label de caption 'Je suis un new label', de hauteur 20 et de largeur 200,de position horizontale et verticale de 50 }
A voir également
- Label delphi
- Pascal label - Meilleures réponses
- Delphi label - Meilleures réponses
- Ajouter des objets - Codes sources - Visual Basic / VB.NET (Control)
- Ajout noeuds + objets + liens (ajoutube v1.1) - Codes sources - Javascript (Effets)
- Ajout de plusieurs controles (labels) dynamiquement à un tableLayoutPanel ✓ - Forum - C# / .NET
- Ajouter un Objet à un vecteur. ✓ - Forum - C++ & C++ .NET
- Ajout de txtbox et label ✓ - Forum - Visual Basic 6
- Messages postés
-
939
- Date d'inscription
- vendredi 25 octobre 2002
- Statut
- Membre
- Dernière intervention
- 27 janvier 2009
2tu a ecrit creerobjet('je suis un new label',20,200,50,50);
ce ne serai pas plutot creerlabel('je suis un new label',20,200,50,50);???
bah c po si grave ;)
Balgrim.
- Messages postés
-
939
- Date d'inscription
- vendredi 25 octobre 2002
- Statut
- Membre
- Dernière intervention
- 27 janvier 2009
2- Messages postés
-
871
- Date d'inscription
- dimanche 6 janvier 2002
- Statut
- Membre
- Dernière intervention
- 3 novembre 2005
1Juste une remarque : quand tu crées une procédure, tu peux regrouper dans les paramètres ceux qui sont de même type :
procedure CreerLabel(hCaption : String; hHeight, hWidth, hLeft, hTop : integer);
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.