Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > C++ Builder > Добавить пункт в выпадающее меню!

Автор: vikaz 7.12.2009, 20:04

Всем добрый! Ребята подскажите, как добавить пункт в меню?
http://ipicture.ru/

Автор: dumb 8.12.2009, 04:39

Unit1.h:

Код


//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
const int SC_MyCommand = 0xEEEE;
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
public:        // User declarations
        __fastcall TForm1(TComponent* Owner);
protected:
        BEGIN_MESSAGE_MAP
                VCL_MESSAGE_HANDLER(WM_SYSCOMMAND, TMessage, OnSysCommand)
        END_MESSAGE_MAP(TForm)
        void __fastcall OnSysCommand(TMessage &msg);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Unit1.cpp:

Код


//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
  HMENU hm = ::GetSystemMenu(Handle, FALSE);
  if (hm)
  {
    ::AppendMenu(hm, MF_SEPARATOR, 0, 0);
    ::AppendMenu(hm, MF_STRING, SC_MyCommand, "wazzaaa");
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::OnSysCommand(TMessage &msg)
{
  if (msg.WParam == SC_MyCommand)
  {
    ShowMessage("zzzaaaaa");
  }
  TForm::Dispatch(reinterpret_cast<void*>(&msg));
}
//---------------------------------------------------------------------------

Автор: vikaz 8.12.2009, 04:51

Огромное спасибо камрад, попробую....

Автор: vikaz 8.12.2009, 06:15

Странно, но пункт не добавился...

Автор: mrbrooks 8.12.2009, 09:51

а так?
*.h

Код


const int MMItm = WM_USER + 1;
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
public:        // User declarations
        __fastcall TForm1(TComponent* Owner);
protected:
    void __fastcall OnCmd(TWMSysCommand &msg)
    {
       if (msg.CmdType == MMItm) ShowMessage("ЫЫЫ");
       TForm::Dispatch(&msg);
    }
        BEGIN_MESSAGE_MAP
          MESSAGE_HANDLER(WM_SYSCOMMAND,TWMSysCommand,OnCmd);
        END_MESSAGE_MAP(TForm)
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;

*.cpp

Код


TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
    AppendMenu(GetSystemMenu(this->Handle,FALSE),MF_SEPARATOR,0,"");
    AppendMenu(GetSystemMenu(this->Handle,FALSE),MF_STRING,MMItm,"ЫЫЫ");
}
//---------------------------------------------------------------------------

Автор: vikaz 8.12.2009, 10:26

Камрады, извините.... Оба кода работают, у меня не появлялся пункт в меню, т.к. AlphaControl натягивая скин, видимо строит свое меню, поэтому я и не увидел эффекта! Спасибо!