Minimize knappen

Uddyb spørgsmålet lidt...

http://www.delphicollection.com/public/GregLief/gl_q&a85.html
Måske den kan bruges til noget.

Jeg skal køre noget kode så jeg får lagt ikonet ned i systemtray når der bliver trykket på minimize knappen fra min form...

uhh.. den kigger jeg lige på esoulman

esoulman lig lige et svar.. jeg har fået det til at funke med din hjælp...

lig = læg... det er sent :/

Oki :o)

Hvad er der galt med ApplicationEvents-komponenten der ligger under Additional?

Eller:

procedure TForm1.MinMinimize(Sender: TObject);
begin
  ShowMessage('Daaaaavs!'#13#10'Formen er minimeret!'#13#10#13#10'HEST!!!');
end;

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