如何自画菜单?

韩冰

　　我们知道,C++Builder没有自画菜单，但可以调用API函数::SetMenuItemInfo（）来改

6 d3 n5 U4 v5 s. D3 e& e

变菜单类型，达到自画菜单的目的。下面的例子演示了如何使用自画菜单。当鼠标位于菜单

上拾，菜单项将凸出来。(黑体字为添加的代码)

* D" R2 }) v c# d$ \" ~% j

//头文件

8 U8 z5 | C& ~

//------------------------------------------

#ifndef TestMenuH

% f' o" d. J8 N

#define TestMenuH

. D0 Y$ Q2 ^( @) w, \. o1 B

//-----------------------------------------

#include Classes.hpp

. r: j+ L& f/ c, _7 M0 V

#include Controls.hpp

#include StdCtrls.hpp

#include Forms.hpp

( p) Q( p) L4 s& m" v6 [) `3 `

#include Menus.hpp//--------------------

class TForm1 : public TForm

{

__published: // IDE-managed Components

TMainMenu *MainMenu1;

" {# R6 h d, P

TMenuItem *aaa1;

TMenuItem *aaaaaaaaa1;

TMenuItem *ccc1;

TMenuItem *ddd1;

9 a! w0 h+ e; q/ G

TMenuItem *eee1;

+ b4 [ J9 o, y. N

TMenuItem *ddsds1;

TMenuItem *fcdfsss1;

TMenuItem *dddddddd1;

4 F$ d$ J0 G8 K0 T! D4 c8 @

void __fastcall FormCreate(TObject *Sender);

private: // User declarations

void __fastcall Modify(TMenuItem *pMenuItem);

5 W( {! H( x: h: ]- t5 m' y1 ~

protected :

MESSAGE void __fastcall CNMeasureItem(TWMMeasureItem Msg);//增加响应消息

MESSAGE void __fastcall CNDrawItem(TWMDrawItem Msg);

public: // User declarations

__fastcall TForm1(TComponent* Owner);

BEGIN_MESSAGE_MAP//添加消息映射

9 m l) W% f0 m

VCL_MESSAGE_HANDLER(WM_MEASUREITEM, TWMMeasureItem, CNMeasureItem);

. @! z5 ?/ {3 U- B

VCL_MESSAGE_HANDLER( WM_DRAWITEM, TWMDrawItem, CNDrawItem);

, b4 G7 t h$ t, |6 `

END_MESSAGE_MAP(TForm);

- \+ i7 E& O) k

};

* G' O. e$ S" l! r4 L

//---------------------------------------------------------------------------

$ \; O h z. x" w) k

extern PACKAGE TForm1 *Form1;

//---------------------------------------------------------------------------

- s1 a% W! s$ u* e+ N# V5 s3 _

#endif

$ Z8 K3 z# A. [3 t

" }% R( t/ I/ V2 l8 ]. u c

//实现文件

+ E3 g4 P' m& a4 U( l( g8 {9 p

//---------------------------------------------------------------------------

#include vcl.h

#pragma hdrstop

#include TestMenu.h

5 M5 @6 p) d/ U- y" j t2 N7 F

//---------------------------------------------------------------------------

#pragma package(smart_init)

) q! F5 Y5 [% V' ^- v; R& |

#pragma resource *.dfm

) V- b) u/ K. _$ g2 D; y

TForm1 *Form1;

1 N+ ]/ k4 \6 q9 t9 ?1 T

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

' i9 [ i2 A: P% ^1 O

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Modify(TMenuItem *pMenuItem)

{//修改缺省属性

2 e+ b7 U1 K* g' v$ t, ~ U

for(int i=0;ipMenuItem-Count;i++)

$ }1 ` L) ?7 ]% I

{

: K4 T6 y1 g. k( V) Y4 ?. E

MENUITEMINFO mii=

{

; e4 y7 K" d. ?% {& O4 D3 r

sizeof(MENUITEMINFO),

MIIM_TYPE|MIIM_DATA ,//改变类型和数据

MF_OWNERDRAW,0,0,0,0,0,DWORD(pMenuItem-Items-Handle),

//把菜单项的句柄赋给32位数据

0,

0,

% Q0 W/ ~6 y0 U7 s: u4 D$ N: B0 L( Q

};

if(pMenuItem-Items-Caption!=-)//如果不是间隔线

::SetMenuItemInfo(pMenuItem-Handle,i,TRUE,mii);

if(pMenuItem-Items-Count)//如果含有子菜单

9 G4 m7 j- M9 z% f8 v* K0 x& E

Modify(pMenuItem-Items);

}

. \/ j$ ~/ ^7 i8 O4 \% N% r

}

void __fastcall TForm1::FormCreate(TObject *Sender)

+ {; S5 Z% k) {; t' a

{

for(int i=0;iMainMenu1-Items-Count;i++)

; P6 h; G2 Y9 d- \0 B3 u# d" \

{

# U5 H/ S( K: i g- O( u( d" z' g1 k

Modify(MainMenu1-Items-Items);

6 E2 j- o3 k; D- Q: N. E- H

}

DrawMenuBar(Handle);

9 r2 O2 x, x9 W+ J7 t4 _5 r/ J" j

}

//---------------------------------------------------------------------------

2 h0 ?) s, S) h6 [) O

void __fastcall TForm1::CNMeasureItem(TWMMeasureItem Msg)

{//设置菜单大小

TMenuItem *pItem=MainMenu1-FindItem(Msg.MeasureItemStruct-itemData,fkHandle);

3 Z( U7 [+ l1 m; d# k$ q

Msg.MeasureItemStruct-itemWidth =pItem-Caption.Length()*8+40;

Msg.MeasureItemStruct-itemHeight = 20;

6 E) ~$ i% D8 z8 y

}

2 F" a; K6 q$ Q4 K

void __fastcall TForm1::CNDrawItem(TWMDrawItem Msg)

{//画出菜单

TMenuItem *pItem=MainMenu1-FindItem(Msg.DrawItemStruct-itemData,fkHandle);

# O% |$ ` Q* V- m5 f4 c+ V

TCanvas *pCanvas=new TCanvas;

( `, [/ }) r; L2 t% s; |

pCanvas-Handle=Msg.DrawItemStruct-hDC;

RECT r=Msg.DrawItemStruct-rcItem;

" ^8 h% G7 B, k( T5 b

pCanvas-Brush-Color=clBtnFace;

RECT r1=r;

' V D8 K' r. t

r1.right+=1;

r1.bottom+=1;

r1.top-=1;

r1.left-=1;

pCanvas-FillRect(r);

; A% w( Y( r2 b9 n, L8 c& v

::SetBkMode(pCanvas-Handle,TRANSPARENT);

pCanvas-TextOut(r.left+10,r.top+2,pItem-Caption);

r.right-=1;

r.bottom-=1;

if(Msg.DrawItemStruct-itemAction == ODA_SELECT

8 ?4 J) |% O/ x2 r3 X

Msg.DrawItemStruct-itemStateODS_SELECTED )

{

pCanvas-Pen-Color=(TColor)(RGB(255,255,255));

, h4 P7 W1 u! d5 x

pCanvas-MoveTo(r.right,r.top);

pCanvas-LineTo(r.left,r.top);

pCanvas-LineTo(r.left,r.bottom);

. c9 U7 M U/ ]5 A! M' R) S4 F

pCanvas-Pen-Color=(TColor)(RGB(128,128,128));

pCanvas-LineTo(r.right,r.bottom);

pCanvas-LineTo(r.right,r.top);

4 s/ f) t2 m9 }; z$ Z

}

# h8 w$ E# p" C P $ P8 j3 V2 P$ k. x/ N' E9 p; W

}

凼凼

Z7XOB

可以研究一下 ！！！！！

lynli

这个不错。。。

nishhao

看了，感觉不错，谢谢您提供