Problème avec Application.Minimize

Voila mon probleme : Je voudrais réduire ma form lorsque je clic dessus (TFrm.FormMouseDown) mais ça ne fonctionne pas. Ex:

Code:

---

1 2 3 4 5

TFrm.boutonClick(... begin ... Application.minimize;

---

--> Fonctionne

ou encore :

Code:

---

1 2	TFrm.windowstate:=wsMinimized

---

--> Fonctionne

Alors que :

Code:

---

1 2 3 4 5

TFrm.FormMouseDown( ... begin .... Application.minimize

---

--> Rien ne se passe

ou encore :

Code:

---

1 2	TFrm.windowstate:= wsMinimized

---

--> Réduit à gauche au dessus du menu Démarrer ( et non dans la barre des taches )

Avec PostMessage(...), le résultat et le même.

Etrangement, un frm.hide par exemple fonctionne dans tous les cas.

Un peu d'aide serait la bienvenue, car je n'ai pas d"explication à ce phénomène.

J'ai trouvé la solution, en integrant la gestion du clic sur mon bouton 'Reduire' dans ma procédure TFrm.WMChitTest.
Elle sert (dans mon cas) à simuler un clic sur la barre des titres (qui est invisible) .

J'intercepte au tout début de cette procedure le clic sur mon bouton avec :
- GetKeyState (permet de connaitre l'etat des boutons de la souris),
- PtInRect (Permet de savoir si un point est contenu dans un rectangle donné).

Voila, si ça intéresse quelqu'un ...