Discussion :

[gudul]

Bonjour,

J'aimerais faire un peu comme Delphi pour sa fenetre principale.
Lorsque je clic sur maximized de ma fenetre principale, je souhaite la reduire à une certaine hauteur placée tout en haut de l'écran.
Il n'existe pas de gestionnaire d'événement OnMaximized.

Si je test WindowState dans OnResize, Il est toujours à wsNormal (l'état avant le clic du bouton de redimensionnement maximised).

Si vous avez une idée ?

[Pedro]

Salut

Il n'existe pas de gestionnaire d'événement OnMaximized.

Si dans TApplicationEvent... C'est un composant qui ne fait qu'encapsuler les propriétés et évènements de TApplication...

[GO]

Soit un peu plus clair je pense que j'ai la solution.

8)

[Pedro]

Tu as un composant invisible (TApplicationEvent onglet standard je crois sous D7) qui permet d'accéder aux propriété, méthodes et évènements de TApplication sans passer par le code... Et dedans, on y trouve OnMaximized

[gudul]

Il n'existe pas de gestionnaire d'événément OnMaximized sur le TApplicationEvents mais un OnMinimize.

[Pedro]

Aie... Désolé

[Nono40]

Je ne sais pas si ça fonctionne aussi sur l'agrandissement, mais tu peux essayer : http://nono40.developpez.com/sources/source0075/

[gudul]

Merci Nono, mais ca m'a l'air bien compliqué pour ce que j'ai a faire.
J'ai trouvé une autre solution que je vous donne

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
20
21
22
23
 
TFormMain ...
private
  FMaximized: Boolean;
  procedure OnMaximized;
...
 
implementation
 
procedure TFormMain.OnMaximized;
begin
  FMaximized := True;
  // Code de ce que l'on veut faire
  Height := Constraints.MinHeight;
end;
 
procedure TFormMain.FormPaint(Sender: TObject);
begin
  if ( (WindowState = wsMaximized) and (FMaximized = False) ) then
    onMaximized
  else
    FMaximized := False;
end;

[Andry]

Nono,
J'ai déjà essayé la source pour l'un de mon problème, mais ça ne marche pas pour intercepter le clic sur le bouton maximiser.
http://www.developpez.net/forums/vie...227964#2227964

Je cherche toujours

A+