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