Hello !

Je suis en train de créer un compo descendant de TTrackBar.
Je souhaite que quand la position du Trackbar change, une action de mon choix s'execute.
Jusque là, j'y arrive en faisant :
(dans le Create du compo)
OnChange:= ProcedureOnChangePersonelle; // qui est elle une TNotifyEvent
MAIS bien entendu, si l'utilisateur mets sa propre procedure dans l'inspecteur d'objet ... ça "écrase" la mienne ...
Je voudrais donc faire en sorte que le OnChange du Trackbar exécute l'action désirée codée DANS le compo MAIS aussi la procédure personnelle de l'utilisateur.
Me suis je fait comprendre ?
J'ai essayé avec :
published
property OnChange: TNotifyEvent read FOnchange write FOnChange; override;
et d'autres trucs du genre mais rien a faire :]

ha et aussi, j'ai une
property TCheckbox: TCheckbox read FCheckBox write SetCheckbox;
et je fait un
SetCheckBox ...
if Assigned(FCheckBox) then FCheckbox.OnClick:= ProcedureOnClickPerso;
donc meme probleme, si l'utilisateur désire mettre une procedure sur le click de la checkbox, ça écrase la mienne alors que je voudrais que ça fasse les deux !

Merci à ceux qui sauront m'aiguiller !

Salut,

Ci dessous un extrait de dérivation de composant sur lequel j'ai eu besoin de "forcer" ma gestion du OnCloseUp. Peut être que ça t'aidera...C'est adapté d'un code que j'ai trouvé sur le net, et malheureusement, bien que je comprenne à peu près ce qu'il fait, et qu'il fonctionne très bien, je ne peux pas te dire précisemment le fonctionnement...

unit UDateTimePicker;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, menus,
  StdCtrls, checklst, ComCtrls, jclDateTime, dialogs, Commctrl;

type
    TDateTimePicker = Class(ComCtrls.TDateTimePicker)
    private
          FLinkedDTP : TDateTimePicker;
          FOnCloseUp : TNotifyEvent;
          procedure CNNotify(var Message: TWMNotify); message CN_NOTIFY;
    public
          Constructor Create (Aowner: Tcomponent); override;
          Destructor Destroy;
    published
          function QRYDate : string;
          function StrDate : string;
          function WeekNo : Integer;
          property LinkedDTP : TDateTimePicker Read FLinkedDTP Write FLinkedDTP;
          property OnCloseUp: TNotifyEvent read FOnCloseUp write FOnCloseUp;
    end;

implementation

procedure TDateTimePicker.CNNotify(var Message: TWMNotify);
begin
     inherited;
     with Message, NMHdr^ do begin
          Result := 0;
          case code of
               DTN_CLOSEUP : begin
                                  // Code Perso
                                  if Assigned(FOnCloseUp) then FOnCloseUp(Self);
                             end;
          End;
     End;
End;

Salut,

avant d'affecter ta procedure au OnChange il faut la mémoriser !

dans le OnCreate:
FOldOnChange := OnChange;
OnChange := MaProcedureOnChange;

et à la fin (par principe) tu la restitues lors de la destruction du composant:
OnChange := FOldOnChange;
FOldOnChange := Nil;

et dans ta procedure "MaProcedureOnChange"
if Assigned(FOldOnChange) then
  FOldOnChange(Sender);
et en fonction de tes besoins tu mets ton code avant ou après l'appel à FOldOnChange.

 
@+
Cirec

---

ouep ouep pas mal, mais le code de retour DT... est bien pour du DateTime, il me faudrait le code de retour OU ALORS ce ne sera pas ce CNNotify :/
Merci je regarde ça

ha cirec a répondu entre deux, ma réponse précédente est pour simon !

Ca ne fonctionne pas Cirec :/

ben ça devrait je l'utilise régulièrement ... !!!

c'est quoi le problème exactement ?

 
@+
Cirec

---

Ni mon Onchange ni le Onchange de l'utilisateur ne s'executent.

Voila des morceaux du code :
Private
    FOnChange, FOldOnChange: TNotifyEvent;
...
Published
    property TLabel: TLabel read FLabel write SetLabel;
    property OnChange : TNotifyEvent read FOnChange write FOnChange;
...
OnCreate
  FOldOnChange:= OnChange;
  OnChange:= ProcOnChange;
...
procedure ...ProcOnChange(Sender: TObject);
begin
  if Assigned(FLabel) then
    FLabel.Caption:= TimeToStr(Now);
  if Assigned(FOldOnChange) then
    FOldOnChange(self);
end;

Avant je n'avais pas mis les lignes rouge et le label changeait de caption.
Maintenant, ni l'un ni l'autre

oui tu as raison je viens de faire un teste ... et effectivement avec le trackbar ça ne fonctionne pas

par contre chez moi j'en ai un sur les deux qui fonctionne ^^

mais je crois savoir pourquoi ... regarde le code du TTrackBar de la VCL à "CNHScroll" & "CNVScroll"

il faut les surgharger et là ça fonctionnera

 
@+
Cirec

---

je confirme ... ça fonctionne très bien

si tu n'y arrivais pas fais moi signe

 
@+
Cirec

---