Discussion :

[unja2010]

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:

[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

[unja2010]

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

[ShaiLeTroll]

vérifie le DPR

Code :

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

  Application.MainFormOnTaskbar := True;

[unja2010]

merci
voila la solution

Code :

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

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;