Discussion :

[/dev/null]

Code :

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

1
2
3
4
5
6
 
 Type
  TMonTimer = Class(TTimer)
    private procedure TimerOnTimer(Sender : TObject);
    public  constructor Create(AOwner: TComponent); override;
  end;

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TMonTimer.TimerOnTimer(Sender: TObject);
Begin
  // Ce qu'y est à faire
End;
 
constructor TMonTimer.create(AOwner: TComponent);
Begin
  inherited Create(AOwner);
  Self.OnTimer := Self.TimerOnTimer;
End;

[Hauwke]

@Hippolyte76
La méthode employée par /dev/null est détaillée au chapitre 7.3.2 de ton cours...

[Laurent Dardenne]

Salut,
un peu de pub pour la prochaine FAQ :

[QR]Qu'est-ce que le mot clé Self et comment l'utiliser ?
Schématiquement à la question qui suis-je ?, le mot clé Self répond moi-même en renvoyant la référence de l'instance en cours d'utilisation au sein d'une méthode de sa classe.
Self permet donc de connaître l'instance en cours et dans certains cas de lever toute ambiguité.

Par exemple ici :

Code :

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

1
2
3
4
5
6
 
procedure TObject.Free;
begin
  if Self <> nil then
    Destroy;
end;

on souhaite savoir si l'objet en cours est instancié ou pas (nil) avant d'appeler le destructeur.
Self est aussi une référence sur une classe et peut donc ne pas être affectée (MonObjet:=Nil). Cette méthode étant statique son appel ne pose pas de problème dans ce cas.

Et là :

Code :

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

1
2
3
4
 
with TPaintBox(Sender).Canvas.Brush do
  begin
    Color := Self.Color;

il y a une ambiguité du à la présence de la propriété color commune à l'instance en cours d'utilisation et à un objet imbriqué (Canvas.Brush).
Self permet ici de savoir exactement de quelle propriété on parle.

Dans le cas d'une méthode de classe l'utilisation de Self à une signification différente, il s'agit d'une variable de type référence de classe contenant la classe effective de l'objet.
Schématiquement dans ce cas le mot clé Self répond à la question De quelle classe suis-je ? en répondant De la classe TMaclasse.

Le self correspond à l'entité responsable de la destruction du composant. en l'occurence, "Self" signifie que le TTimer est responsable de sa destruction.

Je ne pense que cela soit tout à fait ça. Dans ce contexte, le responsable de la destruction c'est plus le développeur via le code de finalisation de la DLL. Avec une Form le développeur ne s'en soucis pas.

Si on regarde le code de TComponent :

Code :

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

1
2
3
4
5
constructor TComponent.Create(AOwner: TComponent);
begin
  FComponentStyle := [csInheritable];
  if AOwner <> nil then AOwner.InsertComponent(Self);
end;

Le paramètre peut être à nil c'est à dire que le composant en question n'a tout simplement pas de propriétaire. cf l'aide en ligne de InsertComponents.
J'utiliserais plutôt le code suivant :

Code :

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

1
2
 
 Timer1 := TTimer.Create(NIL); // Pas de propriétaire

Sinon à quoi correspond Self puisse qu'il n'y a pas de propriétaire et que Timer1 n'existe pas encore ?

Pour plus d'info voir le tuto de SJRD sur la création de composant.

[Hauwke]

Bonsoir,

un peu de pub pour la prochaine FAQ :

Bon, de mémoire celà fait déjà au moins deux fois qu'on nous met l'eau à la bouche avec cette nouvelle FAQ mais telle Soeur Anne...
A quand la publication?
Cordialement,
Hauwke

[glayag]

Self ne signifie pas qu'il est responsable de sa destruction, pour cela, on met nil.

Self est utilise dans les methodes des objets pour faire reference a cet objet.

Donc si tu utilise Self hors d'une methode d'un objet, tu devrais avoir une erreur de compilation, sinon le Self pointera vers l'objet utilise.

Attention donc a ne pas faire de create(Self) en croyant qu'il se gere tout seul. (pour les utilisateurs, c'est pas grave, mais si vous creez des composants, il faut penser a gerer les composants dont vous etes le owner !!).

[chleuh]

Dis j'pensais a un truc pour ton projet qui est une DLL si j'ai bien compris
Tu peux pas essayer d'ajouter un DATA module? ca te permettera d'avoir une form sans l'avoir?

Bon courage en tout cas

[Laurent Dardenne]

Bon, de mémoire celà fait déjà au moins deux fois qu'on nous met l'eau à la bouche avec cette nouvelle FAQ mais telle Soeur Anne...
A quand la publication?

Elle est finalisée mais on a décidé d'ajouter des éléments sur Intraweb donc cela repousse un peu sa publication.