Problème de property

**rvzip64** · 10/07/2008, 10h54

Salut tout le monde,

J'ai un component que j'ai codé et qui doit dessiner dans une paintBox.

je lui fait donc passé en pararémètre une PaintBox de la manière suivante :

Code :

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

1
2
3
4
5
6
  TGraphicMapping=class(TComponent)
  private
    FPaintBox: TPaintBox;
  published
    property PaintBox:TPaintBox read FPaintBox write FPaintBox;
  end;

Le fait que je ne fasse pas un héritage de TPaintBox est volontaire et je ne veux pas changer ce fonctionnement

Quand je suis en mode conception que je pose mon composant puis une paintbox et que 'j'accroche' les deux il n'y a pas de soucis.
Mais par contre si je supprime la paintbox avec de supprimer mon composant, j'ai delphi qui plante.

Est ce que quelqu'un a une idée du problème?

**Cl@udius** · 10/07/2008, 11h05

Salut

Envoyé par rvzip64

Est ce que quelqu'un a une idée du problème?

Oui, tu as besoin d'une procédure de Notification.

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
 
interface
  // ...
  protected     
    procedure Notification(AComponent: TComponent; Operation: TOperation); override;
 
implementation
 
//...
procedure TTaClasse.Notification(AComponent: TComponent;
  Operation: TOperation);
begin
  inherited Notification(AComponent, Operation);
 
  if Operation = opRemove then
  begin
    if AComponent = FPaintBox then
      FPaintBox := nil;
  end;
end;