1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
|
//+++++++++++++++++++++++++++
//La form
//+++++++++++++++++++++++++++
//création de la form
maForm := TForm.Create(self);
//définition du parent
maForm .Parent := self;
//définition de la taille
maForm .Width := 476;
maForm .Height := 354;
//++++++++++++++++++++++++++
//panel principal (design)
//++++++++++++++++++++++++++
//création (sur la form)
Panel_Principal := TPanel.Create(maForm );
//définition du parent
Panel_Principal.Parent := maForm ;
//définition de la taille (tous le client avec marge de 5)
Panel_Principal.Align := alClient;
//définition des marges
Panel_Principal.AlignWithMargins := True;
Panel_Principal.Margins.Bottom := 5;
Panel_Principal.Margins.Top := 5;
Panel_Principal.Margins.Left := 5;
Panel_Principal.Margins.Right := 5;
//définition de la couleur
Panel_Principal.Color := $00FF6666;
//++++++++++++++++++++++++++
//Edit
//++++++++++++++++++++++++++
//création
monEdit := TEdit.Create(maForm);
//définition du parent
monEdit.Parent := Panel_Principal;
//définition de la taille
monEdit.Width := 177;
monEdit.Height := 13;
//définition de la position
monEdit.Left := 24;
monEdit.Top := 26; |
Partager