Créeer des composants dynamiquement dans un TVertScrollBox
Bonjour à tous
Je cherche à créer dynamiquement des composants dans un TVertScrollBox
Voici le code que j'utilise
Code:
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
49
50
51
52
53
54
55
56
57
|
// Position en Y
int PositionY = 24;
// On va créer les éléments pour chaque Match
for(int i = 1; i <= Nb; i++)
{
// On crée l'élément Date
TDateEdit *DateEdit = new TDateEdit(Form);
// On renseigne le Nom du Composant
DateEdit->Name = "DateEdit" + String(i);
// On renseigne le Parent
DateEdit->Parent = VertScrollBoxMatchs;
// On marque qu'il aura la date courante
DateEdit->TodayDefault = true;
// On le positionne
DateEdit->Position->X = 16;
DateEdit->Position->Y = PositionY;
// On le rend actif et visible
DateEdit->Enabled = true;
DateEdit->Visible = true;
// On ajoute l'élément comme Controle Enfant du VerticalScrollBox
VertScrollBoxMatchs->Controls->Add(DateEdit);
// On crée l'élément TimeEdit
TTimeEdit * TimeEdit = new TTimeEdit(Form);
// On renseigne le Nom du Composant
TimeEdit->Name = "TimeEdit" + String(i);
// on renseigne le parent
TimeEdit->Parent = VertScrollBoxMatchs;
// On marque qu'il aura l'heure courante
TimeEdit->UseNowTime = true;
// On le Positionne
TimeEdit->Position->X = 152;
TimeEdit->Position->Y = PositionY;
// On le rend actif et visible
TimeEdit->Enabled = true;
TimeEdit->Visible = true;
// On ajoute l'élément comme Controle Enfant du VerticalScrollBox
VertScrollBoxMatchs->Controls->Add(TimeEdit);
// On incrémente la Position en Y
PositionY += 56;
} |
La création se passe bien je vois bien mes composants à l'écran, le problème, c'est que lorsque je veux scroller pour descendre, j'ai une violation d'accès
Savez-vous ce que j'aurais pu oublier
Je suis en RAD Studio XE7 et j'utilise firemonkey
Merci d'avance pour votre aide
