菜单制作（80分）

Question

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

Answer 1

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;

Answer 2

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