Objet Dynamique TMaskEdit [Résolu]

[antonio_AMD]

Bonjour à tous.

Je dois créer plusieurs composants dynamiquement dans un Panel qui lui est créé dynamiquement. Pour la création du panel ainsi que des labels il n’y a pas de problème. Mais dès que j’ai besoin de mettre un MaskEdit un Edit ou un Bouton, j’ai une violation d’accès à une adresse mémoire. Pouvez-vous m’aider ?

Je créé donc le Panel.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
begin
  tag_dyn := 0;
  top_dyn := 10;
  left_dyn := 10;
  supprimer_code_propre();
  with TPanel.Create(Self) do
    begin
      Parent := Self;
      Name := 'pageDyn';
      Text := '';
      Height := 353;
      Width := 1065;
      Top := 191;
      Left := 18;
      Tag := tag_dyn;
    end;
  gestion_planning();
end;

Puis je vais rechercher le composant qui à la propriété Panel.
Ensuite je lance les procédures qui permettent de construire les labels. Pour ces quelques procédures aucun problème. Je fais de même pour le MaskEdit et c’est au niveau du Parent du MaskEdit que sa plante.

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
 
For i := 0 to ControlCount - 1 do
    begin
      if (Controls[i] is TPanel) then
        begin
          label_nom_activite(i);
          top_dyn := top_dyn + 16;
          label_heure_debut_activite(i);
          top_dyn := top_dyn + 16;
          label_heure_fin_activite(i);
          top_dyn := top_dyn + 40;
          label_heure_debut_agent(i);
          left_dyn := left_dyn + 88;
          txt_edit_heure_debut_agent(i);
          Break;
        end;
    end; 
 
// Création du label heure de début agent
procedure TfrmActiviteJournee.label_heure_debut_agent(i : integer);
begin
  with TLabel.Create(Controls[i] as TPanel) do
    begin
      Parent := Controls[i] as TPanel;
      Name := 'heurededebutagent';
      Top := top_dyn;
      Left := left_dyn;
      Tag := tag_dyn;
      Caption := 'Heure de début : ';
    end;
end;
 
// Création du text Edit heure debut agent
procedure TfrmActiviteJournee.txt_edit_heure_debut_agent(i : integer);
begin
  with TMaskEdit.Create(Controls[i] as TPanel) do
    begin
      Parent := Controls[i] as TPanel;
      Name := 'txtHeureDebutAgent';
      EditMask := '!90:00;1;_';
      Enabled := False;
      Height := 21;
      Width := 33;
      Top := top_dyn;
      Left := left_dyn;
      Tag := tag_dyn;
      Text := Copy(RSActiviteJournee.Fields[1].Value, 12, 5);
    end;
end;

C'est la ligne suivante qui pose problème : Parent := Controls[i] as TPanel;

Pour le MaskEdit alors que je mets la même chose au niveau du Label et il n'y a pas de problème.

Voici le message d'erreur que j'ai lors de l'exécution de la procédure

http://www.imagup.com/data/1143450527.html

Merci d'avance

[ShaiLeTroll]

as doit renvoyer nil
Parce Controls[i] n'est pas un TPanel !

Pourquoi
TLabel est un TGraphicControl, il n'a pas de propriété Controls
TMaskEdit est un TWinControl, il a une propriété Controls !
Avec le with TMaskEdit.Create, il utilise Controls[] du TMaskEdit au lieu de celui de la Form identifié par Self !

Une seule ligne à changer

Code :

Parent := Self.Controls[i] as TPanel;

Ce qui m'étonne, c'est d'avoir une EAccessViolation à 00000008, j'aurais plutôt pensé à une "Index Hors Limite" !

En plus, Parent := Obj modifie implicitement Controls[] de Obj justement !




Pourquoi passer i en paramètre, passe directement le TPanel !

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
 
var
  ...
  Pnl: TPanel;
begin
  For i := 0 to ControlCount - 1 do
  begin
    if (Controls[i] is TPanel) then
    begin
      Pnl := TPanel(Controls[i]);
 
      label_nom_activite(Pnl);
      top_dyn := top_dyn + 16;
      label_heure_debut_activite(Pnl);
      top_dyn := top_dyn + 16;
      label_heure_fin_activite(Pnl);
      top_dyn := top_dyn + 40;
      label_heure_debut_agent(Pnl);
      left_dyn := left_dyn + 88;
      txt_edit_heure_debut_agent(Pnl);
      Break; // ?? bizarre, tu ne le fais que sur le Premier Panel ? tu aurais mémoriser son instance !
    end;
  end; 
 
// Création du label heure de début agent
procedure TfrmActiviteJournee.label_heure_debut_agent(APanel: TPanel);
begin
  with TLabel.Create(APanel) do
    begin
      Parent := APanel;
      Name := 'heurededebutagent';
      Top := top_dyn;
      Left := left_dyn;
      Tag := tag_dyn;
      Caption := 'Heure de début : ';
    end;
end;
 
// Création du text Edit heure debut agent
procedure TfrmActiviteJournee.txt_edit_heure_debut_agent(APanel: TPanel);
begin
  with TMaskEdit.Create(APanel) do
    begin
      Parent := APanel;
      Name := 'txtHeureDebutAgent';
      EditMask := '!90:00;1;_';
      Enabled := False;
      Height := 21;
      Width := 33;
      Top := top_dyn;
      Left := left_dyn;
      Tag := tag_dyn;
      Text := Copy(RSActiviteJournee.Fields[1].Value, 12, 5);
    end;
end;

[Andnotor]

TMaskEdit dérive de TWinControl, il a donc sa propre propriété Controls. A sa création, Controls ne peut qu'être vide et pas conséquent Controls[i] est dans les choux

Préfixe-le simplement pas self pour bien utiliser la liste de la fiche : Self.Controls[i].

Edit: Enfin bref... comme dit Shai

[antonio_AMD]

Merci beaucoup. Sa fonction parfaitement. Je vous remercie de votre gentillesse et de votre rapidité au niveau des réponses. Bonne fin de semaine à vous !!

A très vite !!!