如何在代码隐藏中制作带按钮样式的单选按钮？

Question

我尝试this，但仅限于代码隐藏。类似的问题，不同的目标代码。

我尝试的是：

    let s = Style()
    s.TargetType <- typeof<RadioButton>
    s.Setters.Add (
        let templateSetter = Setter()
        templateSetter.Property <- Control.TemplateProperty
        templateSetter.Value <- 
            let ct = ControlTemplate()
            let fef = FrameworkElementFactory(typeof<Button>)
            ct.VisualTree <- fef
            ct.TargetType <- typeof<RadioButton>
            //let ct = ControlTemplate(typeof<RadioButton>)
            //ct.VisualTree <- FrameworkElementFactory(typeof<Button>)

            ct
        templateSetter
    )

似乎有效，但在这种情况下单选按钮的内容1不会呈现为模板按钮的内容