RPC HELP SplVista Splasch Example
From VistApedia
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.