Discussion :

[kheldoun ahmed]

Salut les devloppeurs,
mois, je veux changer la resolution d'ecran a 1024x768 d'une n'importe quelle machine acause des contraintes de mon aaplication.

j'avais essayé la fonction suivante:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
function ChangeResolution(Width, Height: integer): Longint;
var
 Affich: TDeviceMode;
begin
 Affich.dmSize := SizeOf(TDeviceMode);//Paramètres
 Affich.dmPelsWidth := Width;
 Affich.dmPelsHeight := Height;
 Affich.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
 Result := ChangeDisplaySettings(Affich, CDS_UPDATEREGISTRY);//Applique avec l'Api windows
end;

mais, lorsque la resolution est petite(ex: 800x600) mon application demare avec cette resloution malgre la resolution de l'ecran a ete change pendant l'execution a 1024x768.
et dans le cas ou la resolution est grande (ex: 1280x768) mon application demmare bien

Il y'a une justification a mon pb.
merci.

[ShaiLeTroll]

Je n'ai pas tout compris, mais on dirait que quoi qu'il arrive tu passe en 1024, essaye jouer avec WindowState ... ou sinon avec Width et Height de ta MainForm ...