窗口最小化时我想触发一个过程，但我找不到呀！？帮我有分分

Question

就是找窗口最小化时的事件。

Answer 1

application.OnMinimizeor ApplicationEvents1

Answer 2

如果你只想得到本窗口的, 也可
type
  TForm2 =3D class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure WMSysCommand(Var Msg : TMessage); Message WM_SYSCOMMAND;
  end;var
  Form2: TForm2;implementation{$R *.DFM}Procedure TForm2.WMSysCommand(Var Msg : TMessage);
begin
  Inherited;
  Case Msg.WParam Of
    SC_MINIMIZE : Caption:=3D'Minimize';
    SC_MAXIMIZE : Caption:=3D'Maximize';
    SC_RESTORE  : Caption:=3D'Restore';
  end;
end;

Answer 3

如果你只想得到本窗口的, 也可
type
  TForm2 =3D class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure WMSysCommand(Var Msg : TMessage); Message WM_SYSCOMMAND;
  end;var
  Form2: TForm2;implementation{$R *.DFM}Procedure TForm2.WMSysCommand(Var Msg : TMessage);
begin
  Inherited;
  Case Msg.WParam Of
    SC_MINIMIZE : Caption:=3D'Minimize';
    SC_MAXIMIZE : Caption:=3D'Maximize';
    SC_RESTORE  : Caption:=3D'Restore';
  end;
end;

Answer 4

to:aiirii(ari-爱的眼睛)
你说的第一个，用什么事件去得到呀？比如窗口上最小化按钮的onclick在哪去找？
我想按最小化窗口时就能触发它

Answer 5

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure MyMinimize(Sender: TObject);
  end;var
  Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.MyMinimize(Sender: TObject);
begin
  // 以下是最小化时做的事情
  MessageBox(Handle, '最小化了', '', MB_OK);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMinimize := MyMinimize; // 将事件关联到方法上
end;end.