Je cherche a transmettre un message utilisateur (WM_APP + x) a un objet que j'ai créé a partir de TControl. Je n'arrive pas a trouver le handle que je doit passer a sendmessage() pour que mon objet puisse le traiter !

Mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
const WM_FILEREADY = (WM_APP + 7);
 
class TTestLabel : public TCustomLabel
{
private:
        Controls::TWndMethod OldLabelWP;
        void __fastcall NewLabelWP(TMessage &Msg);
protected:
public:
        __fastcall TLabelDate(TComponent* Owner);
      __fastcall virtual TTestLabel(Classes::TComponent* AOwner);
 
__published:
};
 
__fastcall TTestLabel::TTestLabel(Classes::TComponent* AOwner)
  : TCustomLabel (Owner)
{
   OldLabelWP = WindowProc;
   WindowProc = NewLabelWP;
}
 
void __fastcall TTestLabel::NewLabelWP(TMessage &Msg)
{
  if (Msg.Msg == WM_FILEREADY)
 {           // mon traitement... 
    Font->Color = Msg.LParam; 
    Msg.Result = 0;
 }
 else OldLabelWP(Msg);
}
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  LabelTest = new TTestLabel(this);
  LabelTest->Parent = this;
  LabelTest->Caption = "Label Text";
}
 
void __fastcall TForm1::FormClick(TObject *Sender)
{
  SendMessage(LabelTest ,WM_FILEREADY,0, clBlue);
}
pour votre aide..


[Modération, Alacazam : Prière de rajouter le [RESOLU] quand vous êtes satisfait, merci]