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





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