0/5 (4 avis)
Snippet vu 4 644 fois - Téléchargée 38 fois
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 }
2 nov. 2002 à 16:24
2 nov. 2002 à 15:20
tu 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.
2 nov. 2002 à 15:17
2 nov. 2002 à 14:20
Juste 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.