Discussion :

[stfanny31]

salut tout le monde
je travail sur un petit projet qui contiens plusieurs fiche
j'utilise le code suivant

Code :

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

1
2
Form2:=TForm2.Create(Form1); {création}
Form2.show;

mais a l'affichage (F9)la forme qui ce crée n'a pas les même dimension que celle que moi j'ai crée (FORM2)
ok j'ai je vais forcer les chose est j'ai mis le code suivant

Code :

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

1
2
3
4
Form2:=TForm2.Create(Form1); {création}
Form2.show;
Form2.Width:=691;
Form2.height:=533;

la fiche et comme je veux dans mon projet mais
quant je rajoute un Tbouton avec :

Code :

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

anchors=[akLeft,akTop,akRight]

le Tbouton ne ce vois pas a l'exécution ,il faut que je redimensionne ma form pour voir mon Tbouton
quelqu’un peut m'expliqué ce phénomène

[ShaiLeTroll]

En [akLeft,akTop,akRight], le bouton suit la taille de la fenêtre, si tu réduits trop la fenêtre, le bouton sera tout petit !

Les anchors c'est pratique, mais il faut un peu de temps pour bien les maîtriser !
Tu peux voir leur effet en Design Time, pas besoin de lancer le programme !

Pour la fenêtre qui change de taille, à part poDefault en Position, je ne vois pas
J'utilise très souvent poMainFormCenter

[stfanny31]

merci Mr ShaiLeTroll
mais acune de c'est position ne marche ,la form prend toujours les méme dimension
petite remarque que j'ai peut-être oublier de vous dire
la form que je crée et une form enfant
voici le code que j'utilise :

Code :

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

1
2
3
4
5
6
7
procedure TFORM1.Button1Click(Sender: TObject);
begin
FORM2:=TFORM2.Create(FORM1); {création}
FORM2.Position:= poMainFormCenter;
Form2.FormStyle:=fsMDIChild;
FORM2.show;
end;

un truc dont je suis sur la taille de la Form2 n'a aucun rapport avec la taille de la Form1

[philnext]

Oula..tu as plusieurs problèmes : tu devrais faire plusieurs discussions.
Bon pour ton pb de taille de fenêtre que se passe t'il si tu mets tes lignes :

Code :

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

1
2
Form2.Width:=691;
Form2.height:=533;

avant ton

Code :

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

FORM2.show;

?

[stfanny31]

oui avant d'afficher je donne la taille que je veux

[Papy214]

et en utilsiant

Code :

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

Form2:=TForm2.Create(Application)

ça donne quoi ?