Discussion :

[Chupakabra]

Bonjour,

j'aimerais savoir comment prendre la main sur les actions:
minimize et close de TForm depuis les boutons en haut de celle-ci.

Le principe est de jumeler ceci avec un icone dans le systray.
minimize comme close depuis les clicks de boutons auront une autre utilité et seul le systray aura la main sur la fermeture...

J'ai pour l'instant mis cela en place pour le CloseQuery:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TFormAndIcon.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if not FAgreeClose then
  begin
    CanClose:=False;
    HideAppli(nil);
  end;
end;

FAgreeClose est un boolean géré par la demande de fermeture depuis l'icone. mais je n'ai pas de solution pour le minimize.

[Lung]

Pour la gestion du Minimize, regarde le composant ApplicationEvents. Il a un évènement qui l'intercepte.

[Chupakabra]

bien vu!

désolé je n'utilise strictement jamais ce composant.

mais cela me fait penser que j'avais trouvé une autre solution durant mes tests mais elle etait passée inapercue, et pour cause la raison suivante:

un showmessage dans l'evenement n'apparait que si l'on reprend la main sur la fenetre minimisée alors que du code sans dialogue s'effectue directement....etrange. Il y a peut etre un processmessage qui se cache là dessous.

Merci