在QML TextInput对象中启用闪烁光标

import QtQuick 2.0

Rectangle {
    width: 200
    height: 40

    TextInput {
        id: input
        width: parent.width
        height: parent.height
        focus: true

        cursorDelegate: Rectangle {
            width: 2
            height: parent.height
            color: "black"

            // 使用动画实现闪烁效果
            Behavior on opacity {
                NumberAnimation {
                    loops: Animation.Infinite
                    from: 1
                    to: 0
                    duration: 500
                }
            }
        }
    }
}