Répéter événements fils sur père

**retwas** · 17/11/2013, 22h02

Bonjour,

Savez vous comment répeter un evenement (tel que OnClick) sur le parent d'un composant ?

J'ai un evenement OnClick sur un TPanel
Ce TPanel contient un TButton.

J'aimerais que quand je clic sur mon TButton je passe dans le OnClick de mon TPanel

Je peux lier manuellement le OnClick du TPanel sur le OnClick du TButton mais j'aimerais savoir si il existais un autre méthode, car ce TPanel contient plusieurs autres composants. J'ai remarqué que certains composants avais la propriété "RepeatClick" mais pas tous .. (je suis en FM)

Merci

**popo** · 18/11/2013, 11h52

Je n'ai pas bien compris si le clic sur le bouton est sensé la même procédure que le clic sur le bouton.

En tout cas rien ne t'empêches de déclencher l'évenement clic du panel qui contient le bouton directement par le code. Si tu ne veux pas nommer explicitemement ce panel tu peux utiliser la propriété "Parent" du bouton pour aller le chercher.

**ShaiLeTroll** · 18/11/2013, 19h10

Je ne l'ai qu'en C++Builder dans mon appli à essai pour le OnMouseDown mais cela devrait te donner des idées (EDIT : mince, je vois de voir que tu étais en FMX, tout fonctionne sauf le Perform évidemment)

En FMX, utilise le Parent, cela permet de rester générique !

Un Panel contenant un TEdit ou un TButton
Le Edit ou Button utilise PanelMovableChildControlMouseDown comme OnMouseMove (utilise le Parent du Sender)
Si tu maintiens "Control", cela renvoie au Parent
Ce Parent est un Panel qui lui a comme OnMouseMove PanelMovableMouseDown

Ainsi, en cliquant sur le Panel puis bouge, on déplace ce Panel
et en Cliquant sur Edit ou Button avec "Control" puis bouge, cela déplace le Panel
Si l'on ne maintient pas contrôle, cela permet d'utiliser le Edit ou Button normalement

Code c++ :

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
//---------------------------------------------------------------------------
void __fastcall TVCLManipForm::PanelMovableChildControlMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  if (Shift.Contains(ssCtrl))
  {
    if (Sender->InheritsFrom(__classid(TControl)))
    {
      if (((TControl*)Sender)->Parent->InheritsFrom(__classid(TPanel)))
      {
        if (((TPanel*)((TControl*)Sender)->Parent)->OnMouseDown)
        {
          ((TPanel*)((TControl*)Sender)->Parent)->Perform(WM_LBUTTONDOWN, 0, 0);
          ((TPanel*)((TControl*)Sender)->Parent)->OnMouseDown(((TControl*)Sender)->Parent, Button, Shift >> ssCtrl, X, Y);
        }
      }
    }
  }
}
 
//---------------------------------------------------------------------------
void __fastcall TVCLManipForm::PanelMovableMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
  if (Sender->InheritsFrom(__classid(TPanel)))
  {
    OutputDebugString(/*Ansi*/String("Start Move " + ((TPanel*)Sender)->Name).c_str());
    ((TPanel*)Sender)->BringToFront();
    ((TPanel*)Sender)->Invalidate();
    ((TPanel*)Sender)->Perform(WM_LBUTTONUP, 0, 0);
    ((TPanel*)Sender)->Perform(WM_SYSCOMMAND, SC_MOVE + 2, 0); // Bloque tant que l'on maintient le bouton de la souris appuyé !
    OutputDebugString(/*Ansi*/String("End Move " + ((TPanel*)Sender)->Name).c_str());
  }
}

Code dfm :

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
44
45
46
 
      object PanelMovable: TPanel
        Left = 215
        Top = 184
        Width = 185
        Height = 41
        Caption = 'PanelMovable'
        TabOrder = 2
        OnMouseDown = PanelMovableMouseDown
      end
      object PanelMovable2: TPanel
        Left = 215
        Top = 231
        Width = 185
        Height = 42
        Alignment = taLeftJustify
        TabOrder = 9
        OnMouseDown = PanelMovableMouseDown
        object EditInMovable2: TEdit
          Left = 8
          Top = 12
          Width = 169
          Height = 21
          TabOrder = 0
          Text = 'EditInMovable2'
          OnMouseDown = PanelMovableChildControlMouseDown
        end
      end
      object PanelMovable3: TPanel
        Left = 215
        Top = 279
        Width = 185
        Height = 41
        TabOrder = 10
        OnMouseDown = PanelMovableMouseDown
        object ButtonInMovable3: TButton
          Left = 8
          Top = 8
          Width = 169
          Height = 25
          Caption = 'ButtonInMovable3'
          TabOrder = 0
          OnClick = ButtonInMovable3Click
          OnMouseDown = PanelMovableChildControlMouseDown
        end
      end