evenement OnMouseUp sur un TRadioGroup

Version imprimable

17/03/2007, 11h35
alain lecomte

evenement OnMouseUp sur un TRadioGroup

Bonjour,
Alors que l'événement OnMouseUp est accessible dans l'inspecteur d'objet (BCB6) d'un TGroupBox, il n'apparait pas pour un TRadioGroup.
Y a-t-il moyen d'intercepter cet événement sans avoir à utiliser un "hook" ?
Merci
AL

Bonjour,
A priori oui, en observant bien les propriétés de la 'chose' on vois que cela est possible au travers de ces 'Buttons'.
Ce qui veut dire qu'il faut déclarer un évènement OnMouseUp 'standard' pour les Items du RadioGroup et affecter cet évènement en dynamique (par le code quoi) aux Items concernés.
.dans le .h:
Code:

1 2 void __fastcall OnRadioMouseUp(TObject *Sender, TMouseButton Button, Classes::TShiftState Shift, int X, int Y);
.dans le .cpp:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 //le nouvel évènement : void __fastcall TForm2::OnRadioMouseUp(TObject *Sender, TMouseButton Button, Classes::TShiftState Shift, int X, int Y) { ShowMessage("oki mouse up !"); } //---------------------------------------------------------------------- //affectation de l'évènement a un Item du TRadioGroup: void __fastcall TForm2::Button27Click(TObject *Sender) { RadioGroup1->Buttons[0]->OnMouseUp = OnRadioMouseUp; }
J'ai essayé de dériver un composant de la classe TRadioGroup et de capter le message WM_MBUTTONUP mais cela ne semble pas fonctionner sans que l'on passe par un évènement déclenché par un Items spécifique dans le RadioGroup ...
Cela donnerai qqchose comme :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 class TMRD : public TRadioGroup { private: void __fastcall OnMouseUp(TMessage &msg); BEGIN_MESSAGE_MAP MESSAGE_HANDLER(WM_MBUTTONUP, TMessage, OnMouseUp) END_MESSAGE_MAP(TRadioGroup) public: __fastcall TMRD(TComponent* Owner); };
A appronfondir quoi, mais je n'ai malheureusement pas le temps de suite, dsl.

En espérant t'aider,
@ + ;)

17/03/2007, 13h16
alain lecomte

Merci pour la réponse.
J'avais aussi essayé sans succés ta seconde méthode (utilisation d'un MESSAGE_MAP)

Concernant ta première methode :

Code:

RadioGroup1->Buttons[0]->OnMouseUp = OnRadioMouseUp;

- Buttons n'est pas un membre de TRadioGroup, donc cela ne fonctionne pas.
- Si je mets RadioGroup1->OnMouseUp = OnRadioMouseUp; j'ai le message d'erreur : "OnMouseUp n'est pas accessible" :evilred:
17/03/2007, 19h53
Sunchaser

Citation:

Envoyé par alain lecomte

- Buttons n'est pas un membre de TRadioGroup, donc cela ne fonctionne pas.

8O

Ben écoutes ... comment cela se fait il que mon EDI a moi me le propose ? ...

8O

J'invente rien : j'écris 'RadioGroup1', je met '->', je laisse tourner la bécane et la j'obtiens tous les membres accessibles dans lesquels je trouve 'Buttons'.
Mais est ce le fait que je suis avec le BDS et non le Builder ?
(ça m'étonnerais un peu, mais bon...)

@+
;)
17/03/2007, 21h33
alain lecomte

Citation:

Envoyé par Sunchaser

Mais est ce le fait que je suis avec le BDS et non le Builder ?

C'est probablement l'explication, car avec BCB6 voila ce qu'il propose pour les B...

http://alainlecomte.free.fr/BCB6_tempo_1.jpg

Aprés tout, il faut bien que les nouveaux produits soient plus performants ;)

Bonsoir,
Mille excuses, effectivement je ne pensais pas réellement que cela soit spécifique au BDS ... :oops:

Pour la seconde méthode, en plus, je m'étais trompé dans le nom du message a capter. Il faut y voir (par ex):
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 class TMRD : public TRadioGroup { private: void __fastcall OnMouseUp(TMessage &msg); BEGIN_MESSAGE_MAP MESSAGE_HANDLER(WM_LBUTTONUP, TMessage, OnMouseUp) END_MESSAGE_MAP(TRadioGroup) public: __fastcall TMRD(TComponent* Owner); };
Mais cela ne fonctionne que lors d'un click dans le Radiogroup mais en dehors d'un des items ... :?
J'imagine que cela ne correspond pas a ce que tu cherchais.

D'ailleurs, sans indiscrétion, qu'elle était la finalité de vouloir capter le 'MouseUp' ? En fonction des cas, peut être peut on imaginer travailler avec le WM_PAINT sur l'objet en question, ou qqchose comme cela (?)

@ + ;)

18/03/2007, 08h17
alain lecomte

Bonjour

Citation:

Envoyé par Sunchaser

sans indiscrétion, qu'elle était la finalité de vouloir capter le 'MouseUp' ? En fonction des cas, peut être peut on imaginer travailler avec le WM_PAINT sur l'objet en question, ou qqchose comme cela (?)

Le but est de modifier la taille d'une fenêtre par un click droit en cliquant n'importe où sur cette fenêtre, y compris ses composants : Pour mieux comprendre, télécharge le petit programme suivant : Capture et fait un click droit sur l'unique bouton -> la fenêtre s'agrandit. Un second click droit - y compris sur le radio group - doit pouvoir retrécir la fenêtre.

Bonjour,
Fais comme proposé par Sunchaser, en interceptant le message WM_RBUTTONUP.
Utilise la même méthode pour définir une classe héritant de TRadioButton. Lorsque que tu reçois ton message, transmet le au parent (qui doit être le RadioGroup).

Code:

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
 
class TMyRadioGroup : public TRadioGroup
{
 
private:
		void __fastcall OnMouseUp(TWMMouse &msg);
		BEGIN_MESSAGE_MAP
		MESSAGE_HANDLER(WM_RBUTTONUP, TWMMouse, WMMouseUp)
		END_MESSAGE_MAP(TRadioGroup)
 
                void __fastcall WMMouseUp(TWMMouse &Message);
 
public:
	__fastcall TMyRadioGroup(TComponent* Owner);
};
 
class TMyRadioButton : public TRadioButton
{
 
private:
		void __fastcall OnMouseUp(TWMMouse &msg);
		BEGIN_MESSAGE_MAP
		MESSAGE_HANDLER(WM_RBUTTONUP, TWMMouse, WMMouseUp)
		END_MESSAGE_MAP(TRadioButton)
 
                void __fastcall WMMouseUp(TWMMouse &Message);
 
public:
	__fastcall TMyRadioButton(TComponent* Owner);
};

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
__fastcall TMyRadioGroup::TMyRadioGroup(TComponent* Owner):TRadioGroup(Owner){
 
}
 
void __fastcall TMyRadioGroup::WMMouseUp(TWMMouse &Message){
  //Réduction de ta fenètre
}
 
 
__fastcall TMyRadioButton::TMyRadioButton(TComponent* Owner):TRadioButton(Owner){
 
}
 
void __fastcall TMyRadioButton::WMMouseUp(TWMMouse &Message){
  if (this->Parent != NULL)
    SendMessage(this->Parent->Handle,Message.Msg,0,0); //Transmet le message au parent
}

En espérant que cela t'aidera.
Cordialement,
Benjamin

20/03/2007, 12h50
alain lecomte

Citation:

Envoyé par Grosbenji

Fais comme proposé par Sunchaser, en interceptant le message WM_RBUTTONUP.
Utilise la même méthode pour définir une classe héritant de TRadioButton. Lorsque que tu reçois ton message, transmet le au parent (qui doit être le RadioGroup).

Excellent : Fonctionnement correct en utilisant cette méthode.
Merci à vous deux :merci: