向各位高头请教一个关于FORM的小问题

Question

关于检测FORM或Application的状态 
比如当FORM最小化时 就把FORM给HIDE掉。。如何实现的？？

Answer 1

简单一点就是在Form上放一个ApplicationEvents控件(Additoanl面板)，在它的OnMinimize事件中：
procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
  Hide;
end;

Answer 2

复杂点就自己定义一个处理过程：
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure AppMinimized(Sender: TObject);
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.AppMinimized(Sender: TObject);
begin
  hide;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMinimize := AppMinimized;
end;