Discussion :

[[ZiP]]

Bonjour,

Je souhaiterai placer une fenêtre d'attente en bas à droite au dessus de la barre des tâches.

J'ai actuellement fais ça :

Code :

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

1
2
3
4
5
6
 
procedure TFWaiting.FormCreate(Sender: TObject);
begin
     Left := Screen.Width - ClientWidth;
     Top  := Screen.Height - ClientHeight;
end;

Le problème c'est que ma fenêtre est cachée derrière la barre des tâches.
Je souhaiterai que la limite inférieure de ma fenêtre soit alignée sur la limite supérieure de ma barre des tâches (si celle-ci se trouve en bas, ce qui est la majorité des cas).

Merci,
ZiP

[Cl@udius]

Salut

Tu peux utiliser SystemParametersInfo pour récupérer les dimensions de ton bureau:

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TFWaiting.FormCreate(Sender: TObject);
var
  MyRect: TRect;
begin
  SystemParametersInfo(SPI_GETWORKAREA, 0, @MyRect, 0);
  Left := MyRect.Right - ClientWidth;
  Top := MyRect.Bottom - ClientHeight;
end;

@+ Claudius

[Gilbert Geyer]

Bonjour,

Si besoin est, on peut aussi rendre la barre de taches de windows invisible ou visible par moments :
- pour la cacher : ShowWindow(FindWindow('Shell_TrayWnd',nil), SW_HIDE);
- pour l'afficher : ShowWindow(FindWindow('Shell_TrayWnd',nil), SW_SHOWNA);

[ShaiLeTroll]

tu peux aussi utiliser dans Screen :

WorkAreaHeight
WorkAreaLeft
WorkAreaRect
WorkAreaTop
WorkAreaWidth

[[ZiP]]

Bonjour,

Je reviens justement vers vous car le code de Cl@udius me donne le résultat suivant :


Je vais regarder du côté de :

WorkAreaHeight
WorkAreaLeft
WorkAreaRect
WorkAreaTop
WorkAreaWidth

Edit: Le résultat est identique :

Code :

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

1
2
3
4
5
6
 
procedure TFWaiting.FormCreate(Sender: TObject);
begin
     Left := Screen.WorkAreaWidth-ClientWidth;
     Top := Screen.WorkAreaHeight-ClientHeight;
end;

Merci,
ZiP

[Cl@udius]

Re,

Ooops, j'ai été trop vite !

Code :

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

1
2
3
4
5
6
7
8
9
procedure TFWaiting.FormCreate(Sender: TObject);
var
  MyRect: TRect;
begin
  SystemParametersInfo(SPI_GETWORKAREA, 0, @MyRect, 0);
  Left := MyRect.Right - Width;
  Top := MyRect.Bottom - Height;
end;

@+

[[ZiP]]

Bonjour,

Le résultat est parfait !

Merci,
ZiP