Zitat von
Golze:
habe die gerade die zweitbeste Lösung gelesen mit
Application.ShowMainForm := False
Nachteil: Das OnShow-Ereignis - in dem erst das komplette
Handle verfügbar ist - wird nicht mehr durchlaufen. Alternativen wären
Delphi-Quellcode:
...
Const
ShowArray: array [Boolean] of Integer = (sw_showNormal, sw_Hide);
begin
if not (csDesigning in ComponentState) then
ShowWindow(Application.Handle, ShowArray[FHideTask]);
...
oder auch nicht zu verachten mit CreateParams(..).
richtig gut finde ich aber
Delphi-Quellcode:
program project1;
uses
Forms;
{$R *.RES}
begin
Application.Initialize;
Application.Run;
end;
Keine Form mehr da. Einfach weg; nix mehr Form anzeigen und ärgern.
kay
Kannst du mir das erste Bsp genauer erklären, plz, hab kA woarauf du hinaus willst, bzw wo ich das einbinden soll...
Hab das mal so versucht, hat abba auch net geklappt (ganuso wenig wie das Einfügen der Zeile Application.Minimize:=false; im OnCreate-ereigniss der MainForm)
Delphi-Quellcode:
program GB;
uses
Forms, IniFiles, SysUtils, Dialogs,
main in 'units\main.pas' {Form1},
Unit2 in 'units\Unit2.pas' {Form2};
{$R *.res}
var
ini: TIniFile;
begin
Application.Initialize;
Application.Title := 'GameBuster';
Application.HelpFile := 'E:\sonstiges\Eigene Dateien\CODE\Delphi\GB.beta\GameBuster-help.chm';
ini:=TInifile.Create(ExtractFilePath(ParamStr(0))+'\config.ini');
try
if ini.ReadBool('Options', 'StartMinimized', false)=true then Application.ShowMainForm:=false;
finally
ini.free;
end;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.Run;
end.