Bonjour,

je souhaite tout simplement centré un TPanel dans ma TForm. Je veux que la largeur du Panel soit toujours égale à la largeur / 2 de ma TForm. Et que la hauteur du Panel soit égale à la hauteur / 2 de ma TForm. (Lors de l'événement On Resize).

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
procedure TForm1.OnResize(Sender: TObject);
begin
  { largeur }
  Panel1.Width := Form1.Width / 2;
  { hauteur }
  Panel1.Height := Form1.Height / 2;
end;
j'ai surement quelque chose à ajouter car sa ne marche pas vraiment.
Merci d'avance,
bonne fin de journée.