Discussion :

[BuzzLeclaire]

Bonjours tout le monde,

J'utilise un TObjectList pour mémoriser les composants cliqués sur ma fiche.

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
Var
  FDossierTiers: TFDossierTiers;
  //...
  MyList : TObjectList;
 
implementation
// ...
 
procedure TFDossierTiers.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// ...
  if Assigned(MyList) then MyList.free;
end;
 
procedure TFDossierTiers.FormCreate(Sender: TObject);
begin
// ...
  MyList := TObjectList.Create(True);
end;

Evénements placer sur les composants pendant leur création dynamique :

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
procedure TFDossierTiers.ControlMouseDown(Sender: TObject;Button: TMouseButton;Shift: TShiftState;X, Y: Integer);
begin
  if not Assigned(Sender) then exit;
  if not (Sender is TMysPanel) then exit;
  if not Assigned(TControl(Sender).Parent) then exit;
  if not (TControl(Sender).Parent is TsPanel) then exit;
 
  // ...
 
 
  if (ssCtrl in shift) then
  begin
    // ...
  end
  else
  begin
    Mylist.Pack;
    for i := 0 to MyList.Count - 1 do
      MyList.Extract(MyList[i]);
 
    // ...
  end;
end;

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
procedure TFDossierTiers.ControlMouseUp(Sender: TObject;Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
  if not Assigned(Sender) then exit;
  if not (Sender is TMysPanel) then exit;
  if not Assigned(TControl(Sender).Parent) then exit;
  if not (TControl(Sender).Parent is TsPanel) then exit;
 
  // ...
 
  // on alimente le Tlist d'objet
  MyList.Add(TMysPanel(Sender));
 
  // ...
  TMysPanel(Sender).SetFocus;
 
 
end;

Pour info L'évènement Move rien qui modifie le TMyList

Donc quand je clique un par un par sur les composants, pas de problème.

Dés que j'appuie sur Ctrl, seul l'évènement down ajoute élément par élement chacun de mes cliques, ensuite si j'arrete d'appuier sur CTRL et que je clique de nouveau une fois sur n'importe quel composant boom j'ai une erreur Indice de liste hors limites (2) blablabla au niveau du DOWN.

Pouvez-vous me dire où je fais mon erreur ?

Merci.

PS : j'ai aussi essayé avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
TComposant = Class(TObject)
  Public
    Panel: TMysPanel;
End;

Puis dans le Down

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Var
  oComposant : TComposant
begin
//...
 
  oComposant := Tcomposant.Create;
  oComposant := TMysPanel(Sender);
  TMyList.add(oComposant);
End;

[BuzzLeclaire]

Je pense avoir trouvé,

je doisplutot faire comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    for i := MyList.Count - 1 downto 0 do
      MyList.Extract(MyList[i]);

et non

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    for i := 0 to MyList.Count - 1 do
      MyList.Extract(MyList[i]);

je laisse ouvert au cas où...

[Paul TOTH]

en effet, mais 2 remarques

1) si tu utilisais un TList tu n'aurais pas de problème
2) en conservant TObjectList tu lui indiques qu'il n'est pas propriétaire des objets (False dans le constructor) et alors tu peux simplement faire un Clear pour vider la liste

[BuzzLeclaire]

Bonjour,

Effectivement avec False en création le clear est plus simple. Merci.

Pour info le 1) me générait le même problème.

Merci.

[Paul TOTH]

Bonjour,

Effectivement avec False en création le clear est plus simple. Merci.

Pour info le 1) me générait le même problème.

Merci.

1) oui, si tu supprimes l'élément 0 d'une liste de 2 élément, l'élément 1 n'existe plus, il faut donc parcourir la liste en sens inverse pour conserver les indexes...mais dans mon esprit tu passais par Extract() car le Clear supprimait les objets, et avec un TList tu aurais simplement fait un Clear

[BuzzLeclaire]

Ok j'ai compris.

Mais j'ai besoin à la fois de faire un Clear qui ne Free pas et un Clear qui Free.

donc je mets false quand même et je ferais un remove pour le free.

Merci