请问如何制作闪屏？

Question

请问如何制作闪屏？以前在一本书上看见过，现在记不清了，请大家指教！

Answer 1

try 
               FM0Splash := TFM0Splash.Create(Application);
                with FM0Splash do begin
                  Show;
                  Update;
                end;
              //中间处理
            finally
              if Assigned(FM0Splash) then begin
                FM0Splash.Hide;
                FM0Splash.Free;
             end;