fsi event loop

最新推荐文章于 2023-03-12 17:20:51 发布

原创最新推荐文章于 2023-03-12 17:20:51 发布 · 454 阅读

0 ·

CC 4.0 BY-SA版权

本文详细介绍了如何在FSI环境中通过自定义Eventloop解决WPF控件消息响应问题，包括创建演示应用、确保应用程序存在、创建假窗口作为主窗口和实现事件循环的步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在默认情况下fsi 中的Event loop是绑定到winform中的，如果我们在fsi中测试WPF的控件时，加载自定义的WPF控件，有些消息就无法正常响应。比如按键消息就无法正常响应。这时需要重定义fsi的Event loop。好在有现成的示例。

module WPFEventLoop =
    open System
    open System.Windows
    open System.Windows.Threading
    open Microsoft.FSharp.Compiler.Interactive
    open Microsoft.FSharp.Compiler.Interactive.Settings

    type RunDelegate<'b> = delegate of unit -> 'b
    let Create() =
        let app =
            try
                // Ensure the current application exists. This may fail, if it already does.
                let app = new Application() in
                // Create a dummy window to act as the main window for the application.
                // Because we're in FSI we never want to clean this up.
                new Window() |> ignore;
                app
            with :? InvalidOperationException -> Application.Current
        let disp = app.Dispatcher
        let restart = ref false
        { new IEventLoop with
            member x.Run() =
                app.Run() |> ignore
                !restart

            member x.Invoke(f) =
                try
                    disp.Invoke(DispatcherPriority.Send,new RunDelegate<_>(fun () -> box(f ()))) |> unbox
                with e -> eprintf "\n\n ERROR: %O\n" e; reraise()

            member x.ScheduleRestart() =   ()
            //restart := true;
            //app.Shutdown()
         }

    let Install() = fsi.EventLoop <- Create()

WPFEventLoop.Install()

运行之后按键消息就可以正常响应了。