code maximize

Question

Bonjour, je chercher à modifier le code des boutons minimize et maximize. 
 
Pour minimize pas de pb : 
 
a la creation du formulaire: 
Application.OnMinimize := POnApplicationMinimize; 
 
et ensuite 
procedure TForm_Menu.POnApplicationMinimize(Sender: TObject); 
begin 
  mon code 
end; 
 
mais pour maximize    
OnMaximize n'existe pas, alors comment faire? 
 
merci d'avance

japee · Answer

Ce bout de code intercepte le message d'agrandissement de la Fiche avant qu'il ne se produise :

procedure WMSyscommand(var msg: TWmSysCommand); message WM_SYSCOMMAND;

procedure TForm1.WMSyscommand(var msg: TWmSysCommand);
begin
  if (msg.CmdType and $FFF0) = SC_MAXIMIZE then
    ShowMessage('La fiche va être agrandie');
  inherited;
end;


mais il ne l'empêche pas.

japee · Answer

Ce bout de code intercepte le message d'agrandissement de la Fiche avant qu'il ne se produise :

procedure WMSyscommand(var msg: TWmSysCommand); message WM_SYSCOMMAND;

procedure TForm1.WMSyscommand(var msg: TWmSysCommand);
begin
  if (msg.CmdType and $FFF0) = SC_MAXIMIZE then
    ShowMessage('La fiche va être agrandie');
  inherited;
end;


mais il ne l'empêche pas...

japee · Answer

Pour ceux que ça intéresse, là, on empêche l'agrandissement de la fiche :

procedure WMSyscommand(var msg: TWmSysCommand); message WM_SYSCOMMAND;

procedure TForm1.WMSyscommand(var msg: TWmSysCommand);
begin  
  if (msg.CmdType and $FFF0) = SC_MAXIMIZE then
  begin
    Msg.Result := 0;
    Exit;
  end;
  inherited;
end;

cs_Loda · Answer

pour ceux qui (comme moi) ne trouverais pas tout de suite ou est  déclaré "TWmSysCommand" il est dans l'unité
"Messages". (et oui, TWmSysCommand n'est pas dans mon fichier d'aide...)

thx pour l'astuce ;)

japee · Answer

Bien vu, Loda, merci pour la précision...

Pour ma défense, l'unité Messages est déclarée d'office à l'ouverture d'une fiche.

Pour ceux qui ne la connaitraient pas, voici une astuce :

Quand on ne sait pas à quelle unité se réfère une procedure, function ou autre "bidule", il suffit d'appuyer sur Ctrl, de pointer dessus avec la souris et de cliquer. L'unité correspondante sera affichée dans l'éditeur.   8-) 

Bonne prog', faut pas mollir  :-p 

N'oubliez pas de valider "Réponse acceptée" si ça vous convient, de toute manière vous ne pouvez pas valider autre chose !  :big)

cs_Loda · Answer

pas chez moi en fait. ni l'astuce du ctrl.

remarques que j'utilise D5. &#231;a doit &#234;tre &#231;a ;)

A+
-------------------
Loda

cs_Loda · Answer

pr&#233;cision:

en fait il suffit de pointer desssus pour que le nom pr&#233;fix&#233; s'affiche ainsi que le nom de l'unit&#233;. Mais seulement si on la "voit" (donc si on a inclu l'unit&#233; dans le uses).

et lors que le curseur est dessus,en faissait ctrl+enter on ouvre le fichier. (en fait il tente de l'ouvrir. ca m'arrive souvent qu'il ne le trouve pas.)

-------------------
Loda

code maximize

7 réponses

Votre réponse

Discussions similaires