dephi et résolution écran

**ines09** · 10/09/2005, 01h04

Bonjour à tous,

J'ai un problème.

j'utilise Délphi 7 et windows 98 voir xp selon machine.

J'ai cherché, mais pas trouvé, je voudrais créer une application qui selon la taille de l'écran (ou résolution), s'affiche toujours de la même façon. Donc que la form soit toujours dans les mêmes proportion qques soit la résolution.

Par avance merci

**PoOky** · 10/09/2005, 01h29

salut!

d'abord, tu dois savoir qu'il existe ceci pour obtenir la resolution de l'ecran:

Code :

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

1
2
3
 
screen.Height      //resolution en hauteur
screen.Width       //resolution en largeur

il s'agit de resutats entier (integer), donc si tu veux que ta form garde une taille proportionnelle, il faut que tu utilises

Code :

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

1
2
3
 
Form1.Height:=y;
Form1.Width:=x;

bien sûr, tu auras calculé x et y a partir des resultats obtenu avec les fonctions screen de dessus... N'oublie pas qu'il faut que x et y soit entiers!
et recentre aussi ta form ensuite avec
form1.Position:=poDesktopCenter;

par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.FormCreate(Sender: TObject);
var x,y: integer;
begin
     y := screen.Height;     
     x := screen.Width;
     if x=1024 then Form1.Width:=512;
     if x=800 then Form1.Width:=400;
     if y=768 then Form1.Height:=384;
     if y=600 then Form1.Height:=300;     
     Form1.Position:=poDesktopCenter;
end;