Discussion :

[diam's]

Voilà mon problème :

je veux centrer ma form principale sur l'écran. Jusque là, c'est plutot simple (on met position à desktopCenter ou screencenter).

Mais si j'ai une barre d'outil style 'office' quelque part sur l'écran, une partie de ma form peut être masquée.

Je crois qu'il est possible d'obtenir les coordonnées de l'écran 'disponible' (ie : la surface dispo, vierge de toute barre de taches ou de barre d'outils) car j'avais déjà vu un sujet sur ça, mais je n'arrive pas à remettre la main dessus.

Donc, si quelqu'un peut m'aider, j'en serais reconnaissant

Merci

[Archimède]

avec screen.width et screen.height, tu auras les dim de ton écran
ensuite avec le top et le left de la form, tu la positionnes sur un endroit vierge.non!

[diam's]

effectivement, avec screen.[width / height], j'ai les dim de mon écran. mais pas de la zone vierge.

Par exemple, j'ai ma barre de taches Win en bas de mon écran, et une barre 'Office' à droite. La zone 'vierge' va donc des coordonnées écran [0,0] jusqu'à la bordure haute de ma barre des tâches et à la bordure gauche de la barre office. ce que je veux, c'est connaitre la position de ces limites...

[Archimède]

utilise setwindowpos pour afficher ta form toujours au premier plan !

[Archimède]

la barre de tache tu peux aussi la virer!

barredetache:=findwindow('shell_TrayWnd',nil);
showWindow(barredetache,SW_Hide);

sinon SW_Show pour la faire réapparaître.
de même si tu récupères le handle de ta barre d'outils.

[diam's]

Je pense que je m'exprime mal :
- je ne veux pas 'virer' la barre des taches windows
- je ne veux pas non plus que mon appli soit toujours au premier plan

Ce que je veux :
- Lorsque tu as la barre des tâches et la barre office présent en permanence sur ton bureau, et que tu lances une appli, la bordure droite de ton appli va s'aligner sur la bordure gauche de la barre office (si la barre office est à droite de l'écran) et la bordure basse de l'appli va se caler sur le haut de la barre des tâches. J'ai pas souvent vu un logiciel s'afficher SOUS la barre des tâches, ni avoir besoin de 'virer' ladite barre pour s'afficher correctement
--> je veux faire pareil, je veux savoir comment obtenir le 'top' de la barre des tâches windows, et le 'left' ou le 'right' de la barre 'office'. Mais je préférerais avoir juste les limites d'affichages (pour le cas ou il n'y a pas de barre des taches ni barre office, ou que celles-ci ne sont pas aux positions habituelles)

Je peux pas être plus clair...

[Archimède]

peut-être avec getwindowrect.
salut

[edam]

http://delphi.developpez.com/faq/?pa...centrerfenetre

[diam's]

Merci à tous les deux :
EDAM : effectivement, ça marche (faut le mettre dans oncreate). Désolé, je n'avais pas vu cet exemple dans la faq (j'en ai une version de téléchargée sur mon micro, mais va falloir que je la mette à jour on dirais)

Archimède : getwindowsrect n'est pas tous à fait ce qu'il faut, mais après avoir fouillé dans le MSDN (merci de m'avoir fourni la piste), voilà ce à quoi je suis arrivé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.FormCreate(Sender: TObject);
var
  rect: TRect;
begin
    If SystemParametersInfo(SPI_GETWORKAREA, 0, @rect, 0)
       then begin
         form1.Top:=round((rect.Bottom-form1.Height)/2);
         form1.left:=round((rect.Right-form1.Width)/2);
       end;
end;

C'est juste un poil plus compact que dans la faq, mais le résultat est le même (testé sur Win XP, je sais pas pour les autres OS)

Encore MERCI

[diam's]

pardon pour le dernier code, mais voici une version plus efficace (la précédente ne fonctionnais que si la barre type 'office' était à droite de l'écran). Maintenant, ça fonctionne quelque soit la position des barres (tâches, outils, etc...)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.FormCreate(Sender: TObject);
var
  rect: TRect;
begin
   If SystemParametersInfo(SPI_GETWORKAREA, 0, @rect, 0)
   then begin
         form1.Top:=round((rect.Bottom-form1.Height)/2)+round(rect.top/2);
         form1.left:=round((rect.Right-form1.Width)/2)+round(rect.left/2);
   end;
end;

Et ça fonctionne à partir de Win95

[wizdom]

Ca mériterait d'être ajouté à la FAQ ! Si le responsable de la FAQ delphi passe par là....