1、选择菜单View -> Project Source。
    2、在uses子句中添加Windows单元。
    3、在Application.Initialize;之后添加Application.ShowMainForm := False;。
    4、在Application.Run;之前添加ShowWindow(Application.Handle, SW_HIDE);。
    你的主工程应该是这样的：
    program Project1;
    
    uses
     Windows,
     Forms,
     Unit1 in 'Unit1.pas' {Form1},
     Unit2 in 'Unit2.pas' {Form2};
    
    {$R *.RES}
    
    begin
     Application.Initialize;
     Application.ShowMainForm := False;
     Application.CreateForm(TForm1, Form1);
     Application.CreateForm(TForm2, Form2);
     ShowWindow(Application.Handle, SW_HIDE);
     Application.Run;
    end.
    在每个单元的initialization部分(在最下面)添加:
    begin
     ShowWindow(Application.Handle, SW_HIDE);
    end.

当前暂无评论 »