如何使应用程序最小化

[zr3636]

Delphi中第一个创建的窗口最小化时,整个应用程序最小化.

如何使得其它窗口最小化时,整个应用程序也随之最小化?

[Kevin_Lmx]

截获WM_SYSCOMMAND的消息。
例子：
//（Form1)
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;

end.
------------------------------
//(form2)
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm2 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
procedure WndProc(var message:TMessage);Override;
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

{ TForm2 }

procedure TForm2.WndProc(var message: TMessage);
begin
if (message.Msg=WM_SYSCOMMAND) and (message.WParam=SC_MINIMIZE) then
Application.Minimize;
inherited;
end;

end.

[raineyquanter]

Kevin_Lmx(繁华阅尽) 说的完全正确，截获第一个窗体最小化消息的时候将整个应用程序最小化就行了！

[fengxue291080]

来晚了

就是上面的

[kuki84]

。。。。。

[Kshape]

procedure TForm2.WndProc(var message: TMessage);
begin
if (message.Msg=WM_SYSCOMMAND) and (message.WParam=SC_MINIMIZE) then
Application.Minimize;
inherited;
end;

[zr3636]

Kevin_Lmx(繁华阅尽)

立竿见影,谢谢.