RPC HELP SplVista Splasch Example

From VistApedia
Jump to navigationJump to search

RPC Broker Help Home

VistA Splash Screen Example

The following is example of displaying the VistA Splash Screen in an application:

   uses
   Forms, Unit1 in 'Unit1.pas', SplVista;
   
   {$R *.RES}
   
   begin
     Application.Initialize;
     Application.CreateForm(TForm1, Form1);
     SplashOpen;
     SplashClose(2000);
     Application.Run;
   end.

NOTE: For a demonstration using the VistA Splash Screen, please run the BrokerExample.EXE located in the ..\BDK32\Samples\BrokerEx directory.