Trucs et astuces pour C++ Builder

Mettre une commande dans le menu Système

CGI

- Titre : Trucs et astuces pour C++ Builder

- Auteur : CGI

- Parution : 23 octobre 2002

- Licence : Copyright 2002-2016 CGi - Tous droits réservés CGi. Toutes reproduction, utilisation ou diffusion de ce document par quelque moyen que ce soit autre que pour un usage personnel doit faire l'objet d'une autorisation écrite de la part de l'auteur, propriétaire des droits intellectuels. Les codes sources de ce document sont fournis en l'état. L'utilisateur les utilise à ses risques et périls, sans garantie d'aucune sorte de la part de l'auteur. L'auteur n'est responsable d'aucun dommage subi par l'utilisateur pouvant résulter de l'utilisation ou de la distribution des codes sources de ce document. De la même façon, l'auteur n'est en aucun cas responsable d'une quelconque perte de revenus ou de profits, ou de données, ou de tous dommages directs ou indirects, susceptibles de survenir du fait de l'utilisation des codes sources de ce document, quand bien même l'auteur aurait été averti de la possibilité de tels dommages. L'utilisation des codes sources de ce document vaut acceptation par l'utilisateur des termes de la licence ci-dessus.

Sommaire

- I. Mettre une commande dans le menu Système

I - Mettre une commande dans le menu Système

Dans le fichier Unit.h, on définit une constante pour la commande CM_MONMSG. On déclare la fonction ReponseMessage et le Handle de menu MyMenu. Puis on dirige le message WM_SYSCOMMAND vers la fonction ReponseMessage.

#define CM_MONMSG  401
class TForm1 : public TForm
{
__published:    // Composants gérés par l'EDI
void __fastcall FormCreate(TObject *Sender);
private:    // Déclarations de l'utilisateur
HMENU MyMenu;
void __fastcall ReponseMessage(TMessage &Msg);
public:        // Déclarations de l'utilisateur
__fastcall TForm1(TComponent* Owner);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_SYSCOMMAND, TMessage, ReponseMessage);
END_MESSAGE_MAP(TForm)
};

Dans le fichier Unit.cpp, on crée la commande de menu du menu système sur l'événement OnCreate de la Form (Form1). On définit la fonction ReponseMessage :

void __fastcall TForm1::FormCreate(TObject *Sender)
{
MyMenu = GetSystemMenu(Handle,FALSE);
AppendMenu(MyMenu,MF_SEPARATOR ,NULL,NULL);//ajoute un séparateur
AppendMenu(MyMenu,NULL ,CM_MONMSG , "A Propos !");
}

void __fastcall TForm1::ReponseMessage(TMessage &Msg)
{
if (Msg.WParam == CM_MONMSG)
ShowMessage("Message Reçu");
else  TForm::Dispatch(&Msg);
}

Retour à l'index.