Discussion :

[abdou monta]

Bonjour,

je cherche la possibilité d'augmenter la taille de la fenêtre d'exécution en fullsize, y a t-il une astuce ?

[abdou monta]

bonsoir,

j'ai fais mes recherches et j'ai trouvé que non, on ne peut pas changer la taille..

[Alcatîz]

Bonjour,

Et pourtant si : à la fin de la méthode SetupWindow de ta fenêtre principale, tu peux mettre :

Code :

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

PostMessage(hWindow,wm_SysCommand,sc_Maximize,0);

[abdou monta]

Bonjour,

Et pourtant si : à la fin de la méthode SetupWindow de ta fenêtre principale, tu peux mettre :

Code :

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

PostMessage(hWindow,wm_SysCommand,sc_Maximize,0);

bonjour, est ce que tu peux m'expliquer plus clairement?

[Alcatîz]

Dans un programme TPW, la fenêtre principale de ton application est généralement un objet descendant de tWindow. Dans la phase d'initialisation de la fenêtre principale, la méthode SetupWindow est la dernière à s'exécuter avant l'affichage proprement dit de la fenêtre. L'avantage de cette méthode est que le champ hWindow, qui contient le handle de la fenêtre principale, est initialisé ; c'est donc l'endroit idéal pour injecter dans la file d'attente de Windows le message wm_SysCommand avec la commande sc_Maximize, qui provoque la maximisation de la fenêtre dès qu'elle s'affiche.

Déclaration de la méthode SetupWindow :

Code :

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

1
2
3
4
5
6
pFenetrePrincipale = ^tFenetrePrincipale;
tFenetrePrincipale = Object(tWindow)
                       (* --- *)
                       Procedure SetupWindow; virtual;
                       (* --- *)
                     end;

Implémentation :

Code :

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

1
2
3
4
5
6
Procedure tFenetrePrincipale.SetupWindow;
Begin
  tWindow.SetupWindow;
  (* --- *)
  PostMessage(hWindow,wm_SysCommand,sc_Maximize,0)
End;

Comme tu le vois, il faut absolument commencer par appeler la méthode de l'ancêtre tWindow.

J'espère que c'est plus clair ?

[abdou monta]

Code :

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

1
2
3
4
5
6
7
8
9
program test;
uses wincrt;
type
pFenetrePrincipale = ^tFenetrePrincipale;
tFenetrePrincipale = Object(tWindow)
                       (* --- *)
                       Procedure SetupWindow; virtual;
                       (* --- *)
                     end;

je trouve une erreur de compilation "identificateur inconnue" pour "(twindow)