Problème avec Minimize

salut
j'ai 2 forms

Voila mon problème : Je voudrais réduire ma form lorsque je clic sur le bouton minimise: l'application Apparaît dans ce format EN HAUT de barre des taches
voir l'image:
Pièce jointe 399734

Bonjour,

ben normalement sous Windows c'est automatique ? il n'y a rien à faire ... en cliquant sur le bouton "Minimize' l'application est réduite
A+
Charly

Citation:

---

Envoyé par Charly910

Bonjour,

ben normalement sous Windows c'est automatique ? il n'y a rien à faire ... en cliquant sur le bouton "Minimize' l'application est réduite
A+
Charly

---

mais c’est pas un minimise normal voir bien l'image
L'icône du programme n'apparaît pas dans la barre des taches

vérifie le DPR

Code:

---

Application.MainFormOnTaskbar := True;

---

merci
voila la solution

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

// declare in private section private procedure WMSysCommand(var msg: TWMSysCommand); message WM_SYSCOMMAND;     // and here is the procedure procedure TForm2.WMSysCommand(var msg: TWmSysCommand); begin if msg.CmdType and $FFF0 = SC_MINIMIZE then begin Application.Minimize else inherited; end;   inherited; end;

---