如何做一个和windows一样的“开始”菜单

Question

是效果还是菜单内容同 开始 菜单一样，如果是前者，文章：
http://www.csdn.net/develop/read_article.asp?id=3488

Answer 1

那是在自画菜单……
按按钮出菜单可以这样做：
procedure TForm1.SpeedButton1Click(Sender: TObject); 
var Pos : TPoint; 
btn : TSpeedButton; 
begin
btn := TSpeedButton(Sender); 
Pos.x := 0; 
Pos.x := 0; 
Pos := btn.ClientToScreen(Pos);
Pos.y := Pos.y + btn.Height ;
PopupMenu1.Popup(Pos.x, Pos.y);
end;
不过这个菜单是在下方的
你改一下好了