Discussion :

[Lung]

J'ai créé un nouveau composant héritant du TDateTimePicker.

Lors d'un changement (de date) de l'utilisateur, je veux faire des choses.
Donc, j'ai utilisé l'évènement OnChange :
- Constructeur :

Code :

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

OnChange := DateTimePickerChange;

- L'évènement :

Code :

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

1
2
3
4
procedure TDateTimePickerMaia.DateTimePickerChange(Sender: TObject);
begin
   ...
end;

Le problème, c'est à l'utilisation en conception du composant.
Si je défini (dans l'inspecteur d'objet) que je veux utiliser l'évènement OnChange, ça fonctionne bien, mais la procédure DateTimePickerChange dans mon composant n'est plus appelée.

C'est là que je comprend que je ne m'y prend sûrement pas du tout comme il faut. Mais, je ne vois pas comment faire.
Une idée ?

[ShaiLeTroll]

Utilisez OnChange n'est pas la méthode la plus simple pour ce cas là, c'est possible, j'ai déjà surchargé des Évènements avec cette technique parce que la méthode encapsulant l'appel n'était pas virtuelle !

Lit Classes and Objects Index - Properties (Delphi) - Property Overrides and Redeclarations


Redéclare le OnChange complètement

Code :

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

1
2
published
  property OnChange: TNotifyEvent read FOnChangeOverload write FOnChangeOverload;

- Constructeur :

Code :

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

inherited OnChange := DateTimePickerChange;

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TDateTimePickerMaia.DateTimePickerChange(Sender: TObject);
begin
  ...
 
  if (FOnChangeOverload)  
    FOnChangeOverload(Sender);
 
  ...
 
end;

Autre technique, oublie tout le reste, repars du début !

La méthode procedure Change; dynamic; doit pouvoir être redéfini par override ? je pratique pas le dynamic mais le virtual, ça fonctionne pareil normalement ...

ton code ressemblerait à

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TDateTimePickerMaia.Change;
begin
  ...
 
  inherited Change();
 
  ...
end;

C'est la vraie méthode, c'est plus court ! non ?

[Lung]

Redéclare le OnChange complètement

Code :

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

1
2
published
  property OnChange: TNotifyEvent read FOnChangeOverload write FOnChangeOverload;

Fallait le redéclarer ...

Autre technique, ... C'est la vraie méthode, c'est plus court ! non ?

C'est plus simple, et ça fonctionne.
J'y aurrais jamais pensé.