Very Computer

Hi, everyone, I need your help now.

I am writing a program with login check. What I really want is to present
a welcome box first with User_ID and User_Password input and then jump
to the main window after user passes the login check.

Following is the code I wrote so far in Borland's OWL, which always
generates the main window first and then displays a welcome box.  I know
by executing TApplication::InitInstance() will display the main window.
Now my question is how to display a dialog box before the main window is
shown up on the screen? Displaying a dialog box needs a window's handle,
so before the main window is created, how do I handle the dialog box?

Thanks in advances!

Webb

------------------------------------------------------------------------
void myApp::InitInstance ()
{
        TApplication::InitInstance();
        if (TWelcomeDlg(GetMainWindow(), Transfer).Execute() ==
                 IDOK)
        {
                string info;
                info += Transfer.UserID;
                info += "\n";
                info += Transfer.UserPassword;
                info += "\n";

                Transfer.UserID[0]=0;
                Transfer.UserPassword[0]=0;

                GetMainWindow()->MessageBox(info.c_str(),
                                            "Login Results", MB_OK);
        }
        else
                GetMainWindow()->CloseWindow();

Quote:}

--------------------------------------------------------------------------

Quote:

>Hi, everyone, I need your help now.

>I am writing a program with login check. What I really want is to present
>a welcome box first with User_ID and User_Password input and then jump
>to the main window after user passes the login check.

Create the dialog in the MainWindow's SetupWindow(). You'll have a parent
HWindow (the MainWindow's) and, if the login fails, simply call CloseWindow().
That'll end the app.

--
===============================================================
Michael Sawczyn                      Don'chu worry, never fear,

              Just who IS Heywood Banks, anyway?
===============================================================

|> Hi, everyone, I need your help now.
|>
|> I am writing a program with login check. What I really want is to present
|> a welcome box first with User_ID and User_Password input and then jump
|> to the main window after user passes the login check.
|>
|> Following is the code I wrote so far in Borland's OWL, which always
|> generates the main window first and then displays a welcome box.  I know
|> by executing TApplication::InitInstance() will display the main window.
|> Now my question is how to display a dialog box before the main window is
|> shown up on the screen? Displaying a dialog box needs a window's handle,
|> so before the main window is created, how do I handle the dialog box?

You should not call TApplication::InitInstance() anymore. You can copy
the source of it and rearrange the position of the call
MainWindow->ShowWindow(). Or simply roll your own:

void myApp::InitInstance ()
{
   InitMainWindow();

   MainWindow->Create();

   if (TWelcomeDlg(GetMainWindow(), Transfer).Execute() == IDOK)
   {
        string info;
        info += Transfer.UserID;
        ...
        MainWindow->ShowWindow();
        MainWindow->Update();
   }
   else
   {
        GetMainWindow()->Destroy();
   }

Quote:}

|> ------------------------------------------------------------------------
|> void myApp::InitInstance ()
|> {
|>   TApplication::InitInstance();
|>   if (TWelcomeDlg(GetMainWindow(), Transfer).Execute() ==
|>            IDOK)
|>   {
|>           string info;
|>           info += Transfer.UserID;
|>           info += "\n";
|>           info += Transfer.UserPassword;
|>           info += "\n";
|>
|>           Transfer.UserID[0]=0;
|>           Transfer.UserPassword[0]=0;
|>
|>           GetMainWindow()->MessageBox(info.c_str(),
|>                                             "Login Results", MB_OK);
|>   }
|>   else
|>           GetMainWindow()->CloseWindow();
|> }
|> --------------------------------------------------------------------------

--

Freeman Installer (WWW)--->http://www.arch.su.edu.au/~tongk/0.html
Freeman Installer (ftp)--->ftp.arch.su.edu.au   /pub/tongk/finst152.zip
Key Center of Design Computing, Sydney University

Why should he not call the base classes InitInstance?  I thought all of
the functions that are overridden should call the base classes mehtod ..
like setupwindow, evsize, etc ..

Mitch

: You should not call TApplication::InitInstance() anymore. You can copy
: the source of it and rearrange the position of the call
: MainWindow->ShowWindow(). Or simply roll your own:

: void myApp::InitInstance ()
: {
:    InitMainWindow();
:    
:    MainWindow->Create();
:    
:    if (TWelcomeDlg(GetMainWindow(), Transfer).Execute() == IDOK)
:    {
:       string info;
:       info += Transfer.UserID;
:       ...
:       MainWindow->ShowWindow();
:       MainWindow->Update();
:    }
:    else
:    {
:       GetMainWindow()->Destroy();
:    }
: }

: |> ------------------------------------------------------------------------
: |> void myApp::InitInstance ()
: |> {
: |>         TApplication::InitInstance();
: |>         if (TWelcomeDlg(GetMainWindow(), Transfer).Execute() ==
: |>                  IDOK)
: |>         {
: |>                 string info;
: |>                 info += Transfer.UserID;
: |>                 info += "\n";
: |>                 info += Transfer.UserPassword;
: |>                 info += "\n";
: |>
: |>                 Transfer.UserID[0]=0;
: |>                 Transfer.UserPassword[0]=0;
: |>
: |>                 GetMainWindow()->MessageBox(info.c_str(),
: |>                                             "Login Results", MB_OK);
: |>         }
: |>         else
: |>                 GetMainWindow()->CloseWindow();
: |> }
: |> --------------------------------------------------------------------------

: --

: Freeman Installer (WWW)--->http://www.arch.su.edu.au/~tongk/0.html
: Freeman Installer (ftp)--->ftp.arch.su.edu.au   /pub/tongk/finst152.zip
: Key Center of Design Computing, Sydney University