Discussion :

[Bernard B]

Bonjour,

J'ai besoin d'ajouter les événements OnMouseEnter et OnMouseLeave au TShellTreeView.
J'ai réussi à pouvoir les ajouter en ligne de code (pas dans l'inspecteur d'objet) sur une machine et sur une autre je n'y arrive pas j'obtiens une erreur qui me dit que je n'ai pas le droit d'accéder à ces événements qui sont dans la partie protected de TComponent.
La modification des sources fournis lors de l'installation ne me convenant pas (c'est ce que j'ai fait) je cherche de l'aide pour me créer un descendant de TShellTreeView qui implémente ces deux évenements dans une petite unité bien propre.

C'est sous D2010.

Merci

[ShaiLeTroll]

Tu pourrais nous fournir une ébauche de ton composant hérité ?
Je suppose que tu utilises un Hack de propriété protégée

OnMouseEnter et OnMouseLeave sont déjà présentes dès le TControl
Cela me rappelle une discussion récente : Composant dont événement n'est pas publié

Tu as vérifié si la version du TShellTreeView sont bien les mêmes sur les 2 Postes ? Idem pour la version de Delphi !
OnMouseEnter\OnMouseLeave était géré manuellement par chaque contrôle, au fur et à mesure des versions, ils ont généralisé la gestion dans l'ancêtre !
Cela vient du gestion récente du WM_MOUSELEAVE
Si tu as D7, tu vas devoir gérer TrackMouseEvent à la main
Si tu as D2006, c'est en standard avec le TControl

Il faut juste que le contrôle hérité publie l'évènement, si ça ne l'est pas, c'est qu'il n'est pas géré (ou provoque des effets de bord, fréquent lors d'imbrication de control interne)
Cela nécessite un abonnement par TrackMouseEvent.

[Bernard B]

Tu as vérifié si la version du TShellTreeView sont bien les mêmes sur les 2 Postes ? Idem pour la version de Delphi !

Ce sont bien les mêmes versions du TShellTreeView et Delphi 2010 sur les 2 machines.
Je voudrais partir TShellTreeView qui est déclaré dans l'unité ShellCtrls.pas (celle en PJ)
J'ai essayé de rajouter à :

TShellTreeView = class(TCustomShellTreeView)
published
property AutoContextMenus;
property ObjectTypes;
property Root;
property ShellComboBox;
property ShellListView;
property UseShellImages;
property OnAddFolder;
property Align;
property Anchors;
property AutoRefresh;
property BorderStyle;
property ChangeDelay;
property Color;
property Ctl3D;
property Cursor;
property DragCursor;
property DragMode;
property Enabled;
property Font;
property HideSelection;
property Images;
property Indent;
property ParentColor;
property ParentCtl3D;
property ParentFont;
property ParentShowHint;
property PopupMenu;
property RightClickSelect;
property ShowButtons;
property ShowHint;
property ShowLines;
property ShowRoot;
property StateImages;
property TabOrder;
property TabStop default True;
property Visible;
property OnClick;
property OnEnter;
property OnExit;
property OnDragDrop;
property OnDragOver;
property OnStartDrag;
property OnEndDrag;
property OnMouseDown;
property OnMouseMove;
property OnMouseUp;
property OnDblClick;
property OnKeyDown;
property OnKeyPress;
property OnKeyUp;
property OnChanging;
property OnChange;
property OnExpanding;
property OnCollapsing;
property OnCollapsed;
property OnExpanded;
property OnEditing;
property OnEdited;
property OnGetImageIndex;
property OnGetSelectedIndex;
end;

les lignes Property OnMouseEnter et property OnMouseLeave à la fin avant le 'end;', en partant du principe que le composant ancêtre, qui si je l'ai bien pisté est un TWincontrol, a déjà ces propriétés, pour les re-rendre accessibles.

Mais cela ne marche pas.

Par contre je n'ai pas encore essayé de faire ça :

unit MonShellTreeView;

interface

uses
SysUtils, Classes, Controls, ComCtrls, ShellCtrls;

type
TShellTreeView1 = class(TShellTreeView)
private
{ Déclarations privées }
protected
{ Déclarations protégées }
public
{ Déclarations publiques }
published
{ Déclarations publiées }
property OnMouseEnter;
property OnMouseLeave;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Exemples', [TShellTreeView1]);
end;

end.

C'est ce que je pensais faire au début , mais la paresse...

Dis moi si tu penses que c'est la bonne solution.

Merci. Je vais aussi voir les liens que tu m'as donné je n'avais pas cherché comme cela.

[ShaiLeTroll]

Mais cela ne marche pas..

Ce n'est pas très précis !
Erreur de Compil ? juste aucun effet en RunTime ?

Comme je le disais tout dépend du TShellTreeView, est-ce qu'il peut supporter le TrackMouseEvent !
Je ne connais pas ce composant, est-ce une encapsulation du SysTreeView32 de l'explorateur ou alors un composant autonome qui reproduit le comportement ?
le TShellTreeView c'est un composant Examples, j'ai ça qui traine dans C++Builder 6
C'est en standard semble-t-il maintenant dans XE2, perso, je ne l'ai pas dans la palette, il doit falloir l'installer manuellement je suppose et c'est toujours pas documenté ! je pense qu'il y a un limitation technique pour les Enter\Leave
Perso, un composant non documenté, hum, j'aime pas trop ! Embarcadero peut décider de le retirer du jour au lendemain si ça les gêne, c'est pas un vrai composant VCL

[Bernard B]

Ce n'est pas très précis !
Erreur de Compil ? juste aucun effet en RunTime ?

Sur une machine, j'ai réussi à le rendre fonctionnel en branchant ces événements en ligne de code car ils n'apparaissent pas dans l'instecteur d'objets, et sur l'autre machine il ne passe pas à la compilation. C'est certainement un pb d'accès au fichier car il se retrouve à plusieurs endroit : dans Program Files (x86) mais aussi dans users\xx\public avec des droits d'accès...

le TShellTreeView c'est un composant Examples, j'ai ça qui traine dans C++Builder 6
C'est en standard semble-t-il maintenant dans XE2, perso, je ne l'ai pas dans la palette, il doit falloir l'installer manuellement

Absolument, en D5 il était installé automatiquement, en D7 je crois que déjà il fallait se l'installer. En D2010 c'est encore ça. Il faut de mémoire installer le paquet vclshlctrls.dpk

Perso, un composant non documenté, hum, j'aime pas trop ! Embarcadero peut décider de le retirer du jour au lendemain si ça les gêne, c'est pas un vrai composant VCL

C'est sur mais il fonctionne bien et il ne faut que lui faire apparaître ces deux événements qui lui manquent.

TShellTreeView = class(TCustomShellTreeView)

si on remonte encore :

TCustomShellTreeView = class(TCustomTreeView, IShellCommandVerb)

et encore :

TCustomTreeView = class(TWinControl)

donc il me semble que cela devrait faire l'affaire !! je ne suis pas un expert en héritage.

Par contre si tu connais son équivalent ou mieux, je suis preneur !

Merci