Discussion :

[Alchemist]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
TFrm.boutonClick(...
begin 
      ...
      Application.minimize;

--> Fonctionne

ou encore :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
      TFrm.windowstate:=wsMinimized

--> Fonctionne

Alors que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
TFrm.FormMouseDown( ...
begin
       ....
       Application.minimize

--> Rien ne se passe

ou encore :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Alchemist]

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 ...