谁来帮助初学者：：有一菜单编制问题？！

[码农XP]

怎样编制有标题条的菜单，就像win98的“开始”菜单？请高手指点。不胜感激！！

[码农XP]

就是弹出式菜单,有的菜单左边有一个竖式标题栏,点一下WINDOWS98"开始'菜单,
就那种效果;

[大大怪老张]

mainmenu 和popmenu都有这个功能，可以加一个imgelist，然后选相应的图标作对应item的图标

[码农XP]

楼上的理解错了，不是那种小图标，是一个长条，就象一般标题条，
不过是竖起来罢了。

[iceblue007]

要自己画了，或者用控件啊！

[码农XP]

难道就没人作过么？----

[codecb]

分太少了！
能多些吗？

[Wingsun]

啊！晕倒！
这已经是这个问题第1000000次出现在这儿了。
看以前的帖子去。

[码农XP]

晕倒？可不管治！
不好意思，本人是菜鸟，没看过以前的^_^ ^_^ ^_^……
在论坛上就是为了找到解决的办法，
有哪位高手能解决，本人不吝分数。

[码农XP]

重申问题：制作 象WINDOWS98 里“开始”菜单那种，表有‘Windows98’
兰色长条。那种样式的弹出式菜单，谢谢了！
本人刚加入论坛，分数不多，不好意思^o^

[kuku_lz]

使用coolmenu控件

[码农XP]

kuku_lz:请问那里有？谢谢。

[guolinchao]

关注！

[码农XP]

没人能答么？嗨---

[huzhangyou]

当然有了
通过按扭弹出一个FORM
设置FORM的位置，
再在FORM上做文章就可以了
比如要那个竖条，就可以发送消息给窗体，重绘窗体旧可以了
发送WM_NCHITTEST
其他的事情还是你自己去做

[码农XP]

（信仰）：
难道用菜单不能实现吗？

[jishiping]

采用自画式菜单。下面的例子，在Form上有一个TPopupMenu，它的属性
OwnerDraw为true，有一个TImage。菜单弹出时，将Image的图形画在菜
单的左侧。这儿预定义的Image的宽度为16。

int BmpW = 16;

//--------------菜单的 OnDrawItem 事件-------------------
void __fastcall TForm1::DrawItem(TObject *Sender,
TCanvas *ACanvas, TRect &ARect, bool Selected)
{
AnsiString str;
TMenuItem* Item;

Item = (TMenuItem*)Sender;
ACanvas->StretchDraw(TRect(0,0,BmpW,
ARect.Height()*PopupMenu1->Items
->Count),Image1->Picture->Bitmap);
ARect.left += BmpW + 4;
ACanvas->Pen->Style = psClear;
ACanvas->Rectangle(ARect);
ACanvas->Pen->Style = psSolid;
str = Item->Caption;
DrawText(ACanvas->Handle, str.
c_str(), str.Length(), &ARect, 0);
if (Item->ShortCut != 0) {
ARect.right -= 4;
AnsiString str = ShortCutToText(
Item->ShortCut);
DrawText(ACanvas->Handle, str.c_str(),
str.Length(), &ARect, DT_RIGHT);
}
}
//----------------菜单的 OnMeasureItem 事件---------------
void __fastcall TForm1::MeasureItem(TObject *Sender,
TCanvas *ACanvas, int &Width, int &Height)
{
int Pos;
AnsiString str;
TMenuItem* Item;

Item = (TMenuItem*)Sender;
str = Item->Caption;
if ((Pos=str.Pos('&'))>0)
str.Delete(Pos, 1);
Width = BmpW+8+ACanvas->TextWidth(str);
if (Item->ShortCut != 0)
Width += 8 + ACanvas->TextWidth(
ShortCutToText(Item->ShortCut));
}

[jamesfangjing]

不如自己画一个，用image不是搞定嘛！

[RedGuest]

To: jishiping(JSP 季世平)
有个问题问一下：
DrawItem会被多次的调用，这样，菜单左边的图片也会被重复的绘制了

建议加个bool变量判断？

[lifuming]

这种问题我都用Panel组件高定的，也不错

[jishiping]

“DrawItem会被多次的调用，这样，菜单左边的图片也会被重复的绘制了”
其实也没有什么，如果这样要求的话，你只要判断一下就可以了。如果Item
是第一个菜单的话，就画左边的标题条，否则不画。不需要用什么bool变量。