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.
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 }
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.