Discussion :

[Cazaux-Moutou-Philippe]

Bonjour

j utilises ca pour dimensionner mes fenetres ouvertes depuis la Main

Code :

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

 Height := round(FMain.height * _Context.TailleFenetre / 100);

mais parfois je voudrais le faire pour des fenetres ouvertes depuis d'autres fenetres

Comment remplacer FMain dans tous les cas par le parent de cette fenetre ?

merci

[sjrd]

Euh... La propriété Parent ?

Ou alors j'ai rien compris

[Cazaux-Moutou-Philippe]

Je croyais aussi, et je pense que c est moi qui ai loupé qq chose

car ca, ca passe a la compil

mais ai une violation à l execution

Code :

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

 Height := round(parent.height * _Context.TailleFenetre / 100);

oui est le pb ??

[ero-sennin]

Saut,

Ce n'est pas un problème de type?

Code :

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

 Height := round(parent.height * _Context.TailleFenetre / 100);

Height est déclaré en extended ou en integer ?

[Cazaux-Moutou-Philippe]

height c est celui de la fenetre active

voici mon code complet

Code :

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

1
2
3
4
5
procedure TFCompteFavoris.FormShow(Sender: TObject);
begin
  Height := round(FMain.height * _Context.TailleFenetre / 100);
  width := round(FMain.width * _Context.TailleFenetre / 100);
end

[ero-sennin]

Salut,

J'ai testé ton code dans un truc ton bête et ça fonctionne.

- _Context.TailleFenetre est bien déclaré? heu ca correspond à quoi ça ?
- FMain n'est pas détruite ?

Questions bête, mais là, je sèche aussi