Главная страница | назад





Article #17103: Keeping an application minimized

 Question and Answer Database

FAQ2103D.txt   Keeping an application minimized
Category   :VCL
Platform    :All
Product    :All 32 bit  

Question:
How can I keep my application minimized as an icon?

Answer:
The following example demonstrates trapping the WM_QUERYOPEN
message to prevent the application from restoring from an
iconized state. Note that the Window state of the form must 
be set to Minimized in the object inspector for this method 
to work.

Example:

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure WMQueryOpen(var Msg : TWMQueryOpen);
      message WM_QUERYOPEN;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMQueryOpen(var Msg : TWMQueryOpen);
begin
  Msg.Result := 0;
end;

7/16/98 4:31:28 PM
 

Last Modified: 01-SEP-99