Discussion :

[OutOfRange]

Bonjour à tou(te)s

Comment faire pour positionner une form juste sous le TMainMenu de la fiche parent, sachant que cette position (dont va dépendre la propriété top de form2) peut varier en fonction des paramètres choisi par l'utilisateur dans l'apparence de Windows ?

Autrement dit, quelle propriété "contient" la hauteur de l'entête de la fiche principale et celle de son TMainMenu ?

[neilbgr]

Form1 contient un TMainMenu (et des items)
Form2 contient n'importe coa (ou rien)

Code :

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

1
2
3
4
5
6
procedure TForm1.FormShow(Sender: TObject);
begin
  form2.Parent := Self;
  form2.Align := alClient;
  form2.Show;
end;

Et il n'y a aucun soucis de placement... pas de calcul de hauteur a faire...


Après, s'il faut vraiment, à tous prix, savoir la "hauteur cliente", il suffit de lire la property ClientHeight (et ClientWidth au besoin) de la form

[OutOfRange]

Bon ça marche avec ça

Code :

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

  top:=pal.Height-pal.ClientHeight;

Il ne manque plus qu'à corriger de la largeur de la bordure de fenêtre paramétrée dans windows (la propriété borderwidth de pal est à zéro et il subsiste un petit décalage)
Qqn pourrait-il m'indiquer la propriété qui contient cette largeur de bordure ?

Merci neilbgr