[Back to OOP SWAG index]  [Back to Main SWAG index]  [Original]

{
>Can anyone please tell me if and how it would be possible to have a "WE
>dialog box appear as soon as the desktop is displayed.

I presume you are taking about the desktop in BP7.0, ie OOP.  In that case
it is very easy.  All you have to do is create a virtual procedure in your
application instance, and call it in the main program loop like this:

From: darren.otgaar@leclub.co.za (Darren Otgaar)
}

PROGRAM Dialog;

USES MsgBox, App;

TYPE TDialog = OBJECT(TApplication)
     PROCEDURE DisplayBox; VIRTUAL;
     END;

PROCEDURE TDialog.DisplayBox;
BEGIN
   MessageBox(#3'Welcome to this Program'#13 +
              #3'Hope you love it!'#13, NIL, mfInformation OR mfOkButton);
END;

VAR TDialogApp : TDialog;

BEGIN
   TDialogApp.Init;
   TDialogApp.DisplayBox;
   TDialogApp.Run;
   TDialogApp.Done;
END.

{
That will ensure that the user has to deal with the message box before the
program continues.  If you want a fancier message box, all you do is create
a dialog box and do exactly the same.
}

[Back to OOP SWAG index]  [Back to Main SWAG index]  [Original]