Application - Manter minimizado ao abrir

Top  Previous  Next

1.  You must set WindowState to wsMinimized in the form's properties.

 

2.  In the private section of the form object's declaration, put:

 

    PROCEDURE WMQueryOpen(VAR Msg : TWMQueryOpen); message WM_QUERYOPEN;

 

3.  In the implementation section, put this method:

 

    PROCEDURE TForm1.WMQueryOpen(VAR Msg : TWMQueryOpen);

    begin

      Msg.Result := 0;

    end;