Discussion :

[RamDevTeam]

Bonjour,

J'ai l'architecture suivante

un ComposantMaitre
un composantExclave

Le composant maitre à une propriété items qui est un dérivé de TOwnedCollection

Les items sont des dérivés de TCollectionItem avec parmi les Propriétés,
CompoEsclave : TMyCompo;

J'ai un pb quand dans l'EDI, je supprime le compo Esclave.
Si ensuite, je vais consulter la propriété items de mon Compsant Maître, j'ai une violation d'accès dans le module RTL70.BPL ... et il n'y a plus qu'a relancé D7.

Concernant la propriété CompoEsclave, j'utilise une fct GetEsclave qui vérifie si le compo existe toujours. (utilisation de Assigned)

Visiblement la consultation vie l'éditeur de propriété ne passe pas par ma fct et donc cherche à atteindre un composant qui n'existe plus.

Avez-vous déja rencontré ce pb ?

Merci.

[RamDevTeam]

Je viens de faire un test en créant un nouveau composant sans utilisé de collection.

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
type
  TcomponentMaitre = class(TComponent)
  private
    fButton : Tbutton;
    procedure SetButton(value : Tbutton);
    function GetButton : Tbutton;
  published
    property button:TButton read GetButton write SetButton;
  end;
 
 
procedure TcomponentMaitre.SetButton(value : Tbutton);
begin
  fButton := value;
end;
 
function TcomponentMaitre.GetButton : Tbutton;
begin
  if not assigned(fbutton) then result := nil;
end;

Je pose, mon CompoMaitre, je pose un boutton, je remplit (via l'éditeur) la propriété Button.

Si je supprime le bouton => Plantage Violation d'accès dans RTL70.bpl ..

[RamDevTeam]

La solution du Pb :

Surcharger la méthode Notification :

Code :

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

procedure Notification(AComponent: TComponent; Operation: TOperation);override;

pour intercepeter l'opération OpRemove

Code :

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

1
2
if Operation=opRemove then
  fButton := nil;