Discussion :

[aimer_Delphi]

Bonsoir a tous ,
pour centrer une fenêtre sur un écran j'utilise cette méthode :

Code :

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

1
2
3
4
5
6
7
8
 
procedure centerizeform(f:TForm);
begin
  f.Top:=(Screen.WorkAreaHeight-f.Height) div 2;
  if f.Top<0 then f.Top:=0;
  f.Left:=(Screen.WorkAreaWidth-f.Width) div 2;
  if f.Left<0 then f.Left:=0;
end;

lors de l'appel de la procédure dans l’événement OnCreate j’obtiens une erreur.
j'ai vu la solution proposée sur la faq :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure CenterWnd(const Wnd: HWND); 
var 
  R: TRect; 
  SW, SH, W, H: Integer; 
begin 
  SW := GetSystemMetrics(SM_CXSCREEN); 
  SH := GetSystemMetrics(SM_CYSCREEN); 
  GetWindowRect(Wnd, R); 
  W := R.Right - R.Left; 
  H := R.Bottom - R.Top; 
  R.Left := (SW - W) div 2; 
  if R.Left < 0 then R.Left := 0; 
  R.Top := (SH - H) div 2; 
  if R.Top < 0 then R.Top := 0; 
  MoveWindow(Wnd, R.Left, R.Top, W, H, True); 
end;

mais je ne sais comment et ou appelé cette procedure.

[Roland Chastain]

Bonjour ! Voici le plus simple :

Code :

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

1
2
3
4
5
procedure TForm1.FormCreate(Sender: TObject);
begin
  Left := (Screen.Width - Width) div 2;
  Top := (Screen.Height - Height) div 2;
end;

[Basile le disciple]

Bonjour à tous,

Encore plus simple :

Code :

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

1
2
3
4
5
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Position:=PoScreenCenter;
end;

[aimer_Delphi]

Merci Roland Chastain , Basile le disciple mais , j ai déjà testé les deux solutions mais ma fiche n'est pas centrée .

[Basile le disciple]

Merci Roland Chastain , Basile le disciple mais , j ai déjà testé les deux solutions mais ma fiche n'est pas centrée

Les deux solutions marchent quand la fiche s'affiche puisqu'elles se produisent dans le create.
Vous voulez que la fiche soit centrée quand on la redimensionne, tout le temps ou seulement à l'affichage??

[tourlourou]

Peut-être un appel dans le OnShow conviendrait-il ?

Sinon, pour le centrage, tout dépend au centre de quoi : écran, zone de travail (écran - barre des tâches) ?

[aimer_Delphi]

Les deux solutions marchent quand la fiche s'affiche puisqu'elles se produisent dans le create.
Vous voulez que la fiche soit centrée quand on la redimensionne, tout le temps ou seulement à l'affichage??

seulement a l'affichage.

[aimer_Delphi]

Peut-être un appel dans le OnShow conviendrait-il ?

Sinon, pour le centrage, tout dépend au centre de quoi : écran, zone de travail (écran - barre des tâches) ?

centrer a l'écran.

[aimer_Delphi]

youpi j'ai trouvé la solution :

Code :

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

1
2
 
Position := poOwnerFormCenter;

Merci a vous tous.