Réduction de l'application : utilisation des messages de fenêtre

Commenter

Contenu du snippet

Dans une application à multiples fenêtres, lorsque je réduisais une fenêtre, celle-ci se rédusait au-dessus du "Menu Déamrrer", plutôt que dans la barre des tâches.

Pour règler cette situation, j'ai dû utiliser les window messages.

Source / Exemple : 


//Tout d'abord, dans la section "Private" de votre form :
procedure WMSYSCOMMAND (var msg:TWMSysCommand) ; message WM_SYSCOMMAND;

//Ensuite, dans votre code :
procedure VotreForm.WMSYSCOMMAND(var msg: TWMSysCommand);
begin
  if msg.CmdType=SC_MINIMIZE then 
    Application.Minimize
  else
    inherited;
end;
//N'oubliez pas votre inherited, sans quoi l'application ne fera tout simplement plus rien,
//outre ce qui est défini dans vos if!

Conclusion :


Les window messages peuvent être utilisés dans plusieurs cas, alors n'hésitez pas à consulter
WM_SYSCOMMAND
Dans l'aide de Delphi!

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Jos)