Startfenster vor MainForm anzeigen

JBOpael

Hallo zusammen,

ich würde gerne beim Starten der Anwendung einen Ladebalken für die Anwendung erstellen. Leider scheitere ich daran da immer die erste erstellte Form zur Mainform wird.

int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
	try
	{
		Application->Initialize();
		Application->MainFormOnTaskBar = true;
		TStyleManager::TrySetStyle("Silver");

		Application->CreateForm(__classid(TForm_StartScreen), &Form_StartScreen);
		Form_StartScreen->Show();
		Form_StartScreen->Update();

		Application->CreateForm(__classid(TForm_Main), &Form_Main);
[...]
}

laut der Hilfe von Embarcadero sollte das auch funktionieren..
http://docwiki.embarcadero.com/Libraries/XE6/de/Vcl.Forms.TApplication.MainForm

Vor dem Anzeigen von MainForm können Sie ein Startfenster hinzufügen. MainForm wird nach der Beendigung der Initialisierung der Anwendung angezeigt.

im grunde so Ähnlich wie es hier beschrieben wird:
http://docwiki.embarcadero.com/CodeExamples/XE6/en/TAppCreateForm_(C%2B%2B)

Leider wird da auch FORM5 zur MainForm

In der Hilfe steht:

Vor dem Aufruf von CreateForm können Sie beliebig viele Formulare erstellen, indem Sie deren eigenen Konstruktor aufrufen.

aber wie mache ich das??

DocShoe

int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
{
    try
    {
        Application->Initialize();
        Application->MainFormOnTaskBar = true;
        TStyleManager::TrySetStyle("Silver");

        // so ? 
        TFormStart Form = new TFormStart( Application );
        Form->ShowModal();

        Application->CreateForm(__classid(TForm_Main), &Form_Main);
[...]
}

JBOpael

Danke,

manchmal sieht man den Wald vor lauter Bäumen nicht