菜单制作（80分）

请问怎样制作象金山毒霸2003那样的菜单效果，点左上角的哪个按钮就出现一个下拉菜单。  
  请写出具体方法步骤才给全分 问题点数：80、回复次数：4Top

1 楼ilang（独狼~一辈子的孤单）回复于 2003-06-03 20:32:26 得分 80

procedure   TForm1.SpeedButton1Click(Sender:   TObject);  
  begin  
      with   Sender   as   TControl   do  
      begin  
          with   ClientOrigin   do  
          begin  
              Inc(Y,   ClientHeight);  
              PopupMenu1.Popup(X,   Y);  
          end;  
      end;  
  end;  
   
   
  Top

2 楼firetoucher（风焱）回复于 2003-06-03 20:51:36 得分 0

建立PopupMenu菜单.Top

3 楼csdmzw（伟）回复于 2003-06-03 21:08:13 得分 0

ToolBar1---Addbutton  
  button-style   设置   为   tbsDropDown  
  而后连上DropDownMenu即可，  
  不知理解对不对Top

4 楼emeng（叮当猫）回复于 2003-06-03 21:28:02 得分 0

应该是popupmenu就可以Top

相关问题

• 菜单
• sender
• do begin

• 帖主：zyxdulong
• ilang

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载