Discussion :

[donnadieujulien]

Bonjour, je suis nouveau en delphi et j'ai un problème avec le centrage des applications.
J'arrive à centrer mon appli par rapport à ma résolution, mais comment faire pour y arriver dans n'importe quelle résolution.

La taille de ma TForm est fixe.

J'ai bien vu des solutions du style dans Create :

Code :

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

1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Position := poScreenCenter;
end;

Mais ca ne marche pas, enfin je ne l'apelle jamais, je ne sais pas comment faire, ou l'apeller puisque ma TForm est crée de base avec le projet Delphi.

Comment faire SVP?

[donnadieujulien]

bon déja j'ai vu qu'il fallait le linker avec Oncreate.
Mais ca ne marche toujours pas, en changeant de résolution, ma fenetre n'est plus au centre de l'écran

[JustMe]

bon déja j'ai vu qu'il fallait le linker avec Oncreate.
Mais ca ne marche toujours pas, en changeant de résolution, ma fenetre n'est plus au centre de l'écran

Tu peux aussi le faire à la conception dans la propriété Position.
Mais je dois te dire que ça marche parfaitement.

[Paul TOTH]

bon déja j'ai vu qu'il fallait le linker avec Oncreate.
Mais ca ne marche toujours pas, en changeant de résolution, ma fenetre n'est plus au centre de l'écran

cette propriété est appliquée au chargement de la fiche, pas lors d'un changement de résolution.

je n'ai jamais testé l'effet des Anchors sur un TForm lors d'un changement de résolution...

[donnadieujulien]

Bon en jouant sur le spropriété de la TForm dans la partie conception graphique ca le fait à peu pres, sauf que j'ai deux choses inexpliquées à ce stade de ma compréhension du delphi :

1 - J'ai un TPanel qui contient un TPNGButton, et l'image de fond de ce bouton a un léger décalage vers le bas.

2 - Suivant qu'on excecute sous XP ou vista, des décalages apparaissent, et du coup mes boutons sont pas la ou il faut...
Faut 'il faire une disposition pour chaque OS ?

[DOLPat®]

bon déja j'ai vu qu'il fallait le linker avec Oncreate.
Mais ca ne marche toujours pas, en changeant de résolution, ma fenetre n'est plus au centre de l'écran

Pour centrer une fenêtre après un changement de résolution, il faut intercepter le message WM_DISPLAYCHANGE

Dans la section private de ton unité, tu déclares:

Code :

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

1
2
3
private
  { Déclarations privées }
  procedure WMDisplayChange(var Message:TMessage) ; message WM_DISPLAYCHANGE;

Puis tu écris la fonction avec le code de recentrage:

Code :

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

1
2
3
4
5
procedure TForm1.WMDisplayChange(var Message:TMessage);
begin
  Left:= (Screen.Width-Width) div 2;
  Top:= (Screen.Height-Height) div 2;
end;

Et voila qui recentrera la fenêtre à chaque changement de résolution.

Pat.

[cincap]

Bonjour à toutes et à tous,

@ donnadieujulien, ou tout simplement encore ceci :

Code :

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

1
2
3
4
5
6
 
procedure TForm1.FormPaint(Sender: TObject);
begin
Top  := (Screen.WorkAreaHeight -Height) div 2;
Left := (Screen.WorkAreaWidth -Width) div 2;
end;

En fait avec cette méthode tu peux placer ta fiche n'importe ou sur l'écran quelque soit ta résolution.

Exemple, centrer ta fiche dans le bas de l'écran :

Code :

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

1
2
3
 
Top  := (Screen.WorkAreaHeight -Height) -5;
Left := (Screen.WorkAreaWidth -Width) div 2;

Fonctionne sous D6 et Seven 64bits

@+,

Cincap

[JustMe]

Je m'excuse je n'ai pas bien lu la question.
@cincap Très bien vu, c'est même très ingénieux, même dans mes meilleures jours je n'aurais jamais l'idée d'utiliser le Paint d'une forme pour la faire déplacer.

Mais reste à avouer que c'est plus net en utilisant le code de DOLPat®

[donnadieujulien]

merci à vous!