如何用delphi做出win95开始菜单似的菜单(100分)

  • 主题发起人 主题发起人 冠宇
  • 开始时间 开始时间

冠宇

Unregistered / Unconfirmed
GUEST, unregistred user!
我正在写一个程序,想模拟win95界面,但不知如何做,请多多指教,
 
用DELPHI提供的标准VCL构件,非常简单。
 
你是指菜单旁边的图像吧离线数据包中有这方面的讨论.
菜单项中增加一条空项,在第一行,其bitmap属性中制定你要的位图.
菜单的owner draw:=true,
在OnMeasureItem中设定菜单长宽,在ownerdraw中画位图
procedure TForm1.n1measureitem(....)
begin
width:=n1.bitmap.width;
height:=n1.bitmap.height;
end;

procedure TForm1.n1DrawItem(Sender:Tobject;Acanvas::TCanvas;ARect:
TRect;Selected::Boolean)
begin
ACanvas.draw(ARect.left,ARect.top,n1.bitmap);
end;
 
是指开始菜单那样的吧?用第三方组件CoolMenu可以很容易做到。

如果想象 popeye 说的做象Office样式的菜单图标,Delphi5无须任何第三方组件它的菜单项直接有ImageIndex项目可用。
如果是delphi4或以下,仍然建议用第三方组件如Menu2000等。主要是方便。
 
多人接受答案了。
 
后退
顶部