Bonjour...
voila j'ai créé une form dynamique sur lequel j'ai un panel et un Edit et le problème c'est que je n'arrive pas à écrire dans l'édit (ni meme d'avoir le curseur.
Voici mon code
quelqu'un voit il mon erreur?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;
Merci d'avance
Partager