我想在dephi的form最小化事件中加入一段自己的代码，怎么办？

Question

OnMinimize事件里面处理。缺省是没有的，你需要重载这个事件

Answer 1

请参考:
procedure TForm1.FormResize(Sender: TObject);
begin
  if self.WindowState in [wsMaximized] then
    showmessage('')
end;

Answer 2

可以在Form中的OnCanResize事件中加入代碼判斷試一下。我沒做過。

Answer 3

截获消息：
 public
 procedure wmsyscommand(var msg:Twmsyscommand);message wm_syscommand;procedure Tform1.wmsyscommand(var msg:Twmsyscommand);
begin
    if msg.cmdtype=sc_minimize then
end;

Answer 4

最大化：sc_maximize
最小化：sc_maximize
关  闭：sc_close

Answer 5

对不起写错了，最小化是 sc_minimize

Answer 6

可以在触发窗口最小化的windows 消息时写入你的代码

Answer 7

/////这样也可以。
///////////////////////////////////////////////////
interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  Procedure OnMinimize(Sender: TObject);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMinimize:=OnMinimize;
end;procedure TForm1.OnMinimize(Sender: TObject);
begin
beep;
end;end.

Answer 8

Jiker(涛声依旧)的方法似乎更简单