Discussion :

[Bernard B]

Bonjour,

Je bloque sur un problème :

Je crée un nouvel objet qui est par exemple un descendant de TCustomPanel.
Par défaut, ses méthodes et propriétés sont cachées.
Je re-publie par exemple sa propriété OnClick en mettant dans la partie published property OnClick;

Comment lorsque l'utilisateur click sur mon nouvel objet puis-je dans cet objet récupérer cet événement pour mettre l'affichage à jour ?

Même type de question : comment dans ce nouvel objet pouvoir modifier la méthode paint par exemple pour être sur de dessiner mon objet correctement chaque fois que windows doit le repeindre.

C'est certainement très simple, mais je ne trouve pas.

Merci pour votre aide.

@+

[rsc]

Je re-publie par exemple sa propriété OnClick en mettant dans la partie published property OnClick;

Comment lorsque l'utilisateur click sur mon nouvel objet puis-je dans cet objet récupérer cet événement pour mettre l'affichage à jour ?

Le plus simplement du monde : exactement comme dans le Panel classique : tu crées un gestionnaire d"'événement Onclick, à partir de l'inspecteur d'objets par ex, et tu y mets ce que tu veux.

Même type de question : comment dans ce nouvel objet pouvoir modifier la méthode paint par exemple pour être sur de dessiner mon objet correctement chaque fois que windows doit le repeindre.

La procédure Paint de TCustomPanel étant protected et virtual, elle peut être surchargée dans les classes-enfants, donc :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
TMyPanel
...
protected
procedure Paint; override; 
...
implementation
procedure TMyPanel .Paint;
begin
  inherited Paint; {pour exécuter le code par défaut}
 {ton code supplémentaire}
end;

[Bernard B]

Merci je teste ça dès mon retour de vacances !

@+

[Bernard B]

En relisant ta réponse il me semble que je me suis mal exprimé pour la première question.

Je veux dans mon nouvel objet récupérer le click de l'utilisateur, ce n'est pas dans l'application, car là comme tu le dis fort justement il suffit de racrocher la procédure à l'événement dans l'inspecteur d'objet par exemple.

Je veux que sur un click opérateur mon dérivé de panel change de couleur par lui même sans avoir rien à faire dans l'application.

Merci

[Aka Guymelef]

Redéfinir la méthode DoClick de ton Panel personnalisé me semble une bonne option

[rsc]

Plus exactement la procédure Click (définie dans TControl). Même chose que pour Paint. Peut-être le Inherited à la fin au lieu du début, si tu veux que ton traitement se passe avant l'éventuel gestionnaire OnClick.