VPF::Добавить пункт в выпадающее меню!

vikaz

Дата 7.12.2009, 20:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 869
Регистрация: 15.2.2006

Репутация: 10
Всего: 12

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

--------------------

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/

dumb

Дата 8.12.2009, 04:39 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 32
Всего: 158

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 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 869
Регистрация: 15.2.2006

Репутация: 10
Всего: 12

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

--------------------

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/

vikaz

Дата 8.12.2009, 06:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 869
Регистрация: 15.2.2006

Репутация: 10
Всего: 12

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

--------------------

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/

mrbrooks

Дата 8.12.2009, 09:51 (ссылка)

(нет голосов)

Загрузка ...

трололомен

Профиль
Группа: Завсегдатай
Сообщений: 4259
Регистрация: 4.10.2006
Где: Дол Гулдур

Репутация: 167
Всего: 306

а так?
*.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,"ЫЫЫ");
}
//---------------------------------------------------------------------------

Это сообщение отредактировал(а) mrbrooks - 8.12.2009, 09:52

vikaz

Дата 8.12.2009, 10:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 869
Регистрация: 15.2.2006

Репутация: 10
Всего: 12

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

--------------------

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »