Wpf鼠标进入控件有效区域变手型和下划线

<UserControl.Resources>
    <Style TargetType="TextBlock" x:Key="HoverUnderlineStyle">
        <Style.Triggers>
            <Trigger Property="IsMouseOver" Value="True">
                <Setter Property="TextBlock.TextDecorations" Value="Underline" />
                <Setter Property="TextBlock.Cursor" Value="Hand" />
            </Trigger>
        </Style.Triggers>
    </Style>
</UserControl.Resources>

<TextBlock Style="{StaticResource HoverUnderlineStyle}" />

比起Winform确实省了不少代码。