Discussion :

[Nuclear88]

Bonjour,

mon problème ne concerne pas spécialement le langage C++.

J'utilise Borland C++ Builder 6 et j'aimerais changer la fiche qui apparaît au moment où j'exécute mon projet.

Je suis déjà passé par les options : Projet->Options puis l'onglet "fiches" dans l'EDI pour spécifier ma fiche principale, mais ça ne résout pas le problème.

je résume donc :
j'ai 2 fiches : form1 et form2.
J'aimerais afficher la form2 en premier plutôt que la form1 à l'exécution.
Comment faire ?

Par avance, merci.
Nuclear.

[ShaiLeTroll]

Suffit de modifier les CreateForm dans le Main()
D'ailleurs, tu n'es pas obligé de créer toutes les fenêtres mais juste une (la principale), les autres tu peux les créer avec newau moment voulue, dans le OnClick d'un TButton par exemple

[henderson]

Salut !

Tout dépend de ce que tu cherches à faire !
Par exemple, on peut exploiter l'événement OnCreate de la fiche principale avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
void __fastcall TForm1::FormCreate(TObject *Sender)
{
MessageBox(NULL, "Créé par henderson !", "Bonjour !", MB_ICONINFORMATION + MB_OK);  
}

On fournit NULL pour le handle de la fenêtre principale (HWND hwnd) !
Comme le processus est bloquant, l'affichage de la fenêtre principale ne surviendra qu'à la sortie de la Messagebox.

Cela vaut aussi pour une DialogBox...(Unit1 et Unit2)
Dans ce cas, on supprime la création de la DialogBox dans le source du projet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
    try
    {
        Application->Initialize();
        Application->CreateForm(__classid(TForm1), &Form1);
        //Application->CreateForm(__classid(TOKBottomDlg), &OKBottomDlg); // <==
 
        Application->Run();
    }
    catch (Exception &exception)
    {
        Application->ShowException(&exception);
    }
    return 0;
}

La OnCreate de la fiche principale :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
#include "Unit2.h" // pour TOKBottomDlg
//...
//...
void __fastcall TForm1::FormCreate(TObject *Sender)
{
OKBottomDlg = new TOKBottomDlg(NULL);
OKBottomDlg->ShowModal();
//...
delete OKBottomDlg;
}

Il y a d'autres solutions qui dépendent du contexte !

Ca fonctionne avec BCB3 Pro !

A plus !

[henderson]

Salut !

Autre contexte qui consiste à faire apparaître simultanément deux fenêtres au lancement du programme,il suffit de fixer les propriétés de cette deuxième fenêtre de la manière suivante (depuis l'inspecteur d'objets):

FormStyle sur fsStayOnTop
Visible sur true

Il n'y aurait rien de plus à faire !
La deuxième fenêtre viendra s'afficher au premier plan, la fenêtre principale en arrière plan !

Donc ... ça doit le faire aussi pour N fenêtres !

Ca fonctionne sur BCB3 Pro !

A plus !