让控件的DropdownMenu或者PopupMenu弹出来

procedure TMainFrm.ToolButton6Click(Sender: TObject); 
var 
  MemuPos: TPoint; 
begin 
  MemuPos := TToolButton(Sender).ClientToScreen(Point(0, 0)); 
  MemuPos.y := MemuPos.y + TToolButton(Sender).Height; 
  TToolButton(Sender).DropdownMenu.Popup(MemuPos.x, MemuPos.y); 
end;