Discussion :

[bionicleman]

Bonjour a tous,
j'ai un soucis avec l'affichage de ma form principale:
je voudrais qu'au lancement une détection de la résolution d'écran soit faite, puis qu'en fonction de cette résolution ma form se place en bas a droite de l'écran. Une variable contiendrait la largeur, une autre la hauteur.

J'ai un bout de code qui marche lorsque j'affiche la valeur des variables, elles correspondent bien a la résolution de mon écran mais lorsque je veux afficher ma forme en la faisant dépendre de ses variables elle ne s'affiche pas:

Code :

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

1
2
3
4
5
6
 
var
  Form1: TForm1;
  HH :HDC;
  largeur:integer;
  hauteur:integer;

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.FormCreate(Sender: TObject);
 begin
  HH:=getdc(GetDesktopWindow);
  Llargeur:=GetDeviceCaps(HH,HORZRES);
  hauteur:=GetDeviceCaps(HH,VERTRES);
  form1.Left:=largeur-195;
  form1.Top:=largeur-90;
 end;

Je ne vois pas où peut etre le problème...

[Jipété]

Je ne vois pas où peut etre le problème...

Là, peut-être :

Code :

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

1
2
3
  form1.Left := largeur - 195;
//  form1.Top := largeur - 90;
  form1.Top := hauteur - 90;

Mes 2 cts,
--
jp

[bionicleman]

Merci de cette réponse

L'erreur était flagrante mais malheureusement pas la bonne, je ne vois toujours pas ma form sur l'écran.

Une autre idée ?

[bionicleman]

Problème réglé :

• L'erreur était bien celle là,
• La propriété visible de ma form était a false (allez savoir pourquoi )
• Merci Jipété

A+