Reagere når vinduet bliver minimeret?

En tform har ikke en onMinimize hændelse, men det har Tapplication til gengæld :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure minimeret(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMinimize := minimeret;
end;

procedure TForm1.minimeret(Sender: TObject);
begin
 form1.caption:='Jeg er minimeret';
end;

end.

Håber du kan bruge det...

Tusind tak for svaret, men nu har jeg altså et lille problem med det

Hvis jeg laver Hide() i Minimeret, også laver show når man åbner den i tray. Så kan man pludselig ikke trykke på Minimer knappen igen?

Håber du(i) har en løsnig

---
Hilsen Anders

Tusind tak for svaret, men nu har jeg altså et lille problem med det

Hvis jeg laver Hide() i Minimeret, også laver show når man åbner den i tray. Så kan man pludselig ikke trykke på Minimer knappen igen?

Håber du(i) har en løsnig

---
Hilsen Anders

Tak for hjælpen Fandt selv ud af det sidste

---
Hilsen Anders