Bonjour à tous

Je cherche à créer dynamiquement des composants dans un TVertScrollBox

Voici le code que j'utilise

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