Hi Leute,
ich hab hier eine Sache, die kenne ich noch nicht.
In meinem Projekt kann ich unter Optionen/Formulare kein Formular als Hauptformular auswählen. Die Liste automatisch erzeugen enthält Formulare, die Combobox für Hauptformular ist aber leer. Ich hab die Forms schon Wechselseitig in die Box Verfügbare Formulare verschoben und zurück, keine Änderung.
Das Programm startet auch "Normal" und es werden keine Fehlermeldungen geworfen. Es ist jetzt aber so, dass alle Formulare direkt nach ihrem Application.CreateForm angezeigt werden und nicht erst nach Application.Run. Ich kann auch einfach mein MainForm auf Visible = False vor Application.Run setzen. Das sollte af jeden Fall nicht sein.
Ich hab mir mal die *.dproj angeschaut. Konnte dort auf den ersten Blick aber nichts erkennen, was mit der Sache zu tun hat.
Hier auch mal mein Project-Code:
Delphi-Quellcode:
program infocenter;
uses
Forms,
TATDefs,
TAT5_1Main in 'TAT5_1Main.pas' {TrivtecAdvertisingForm1: TTrivtecAdvertisingForm},
ContainerControlWindow in '..\TrivtecBasics\ContainerControlWindow.pas' {ContainerControlForm: TBaseTrivtecForm},
TAT5_1ContainerControlWindow in 'TAT5_1ContainerControlWindow.pas' {ContainerControlForm1: TBaseTrivtecForm},
TAT5_1WebWindow in 'TAT5_1WebWindow.pas' {TrivtecWebBrowserForm1: TTrivtecWebBrowserForm},
TAT5_1ExplorerWindow in 'TAT5_1ExplorerWindow.pas' {TrivtecExplorerForm1: TBaseTrivtecForm};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.Title := 'Infocenter';
RegisterEnvironmentVariables;
Application.ShowMainForm := False;
Application.CreateForm(TTrivtecAdvertisingForm1, TrivtecAdvertisingForm1);
TrivtecAdvertisingForm1.Visible := False; // das hab ich mal zum Test eingefügt und sollte eigentlich nicht funzen ?
try
Application.CreateForm(TTrivtecExplorerForm1, TrivtecExplorerForm1);
Application.CreateForm(TContainerControlForm1, ContainerControlForm1);
Application.CreateForm(TTrivtecWebBrowserForm1, TrivtecWebBrowserForm1);
TrivtecAdvertisingForm1.LoadOfflineStyle;
finally
Application.ShowMainForm := True;
end;
Application.Run;
end.
Tja, wenn da einer eine Idee zu hat, würde mich echt freuen.
Gruß oki