Discussion :

[christian ginouvet]

Bonjours ou bonsoir a tous tes,

voila j'ai cree une fenetre simple avec un bouton qui appel une fenetre la tout va bien
maintenant au momment de la compilation la aussi le programme s'affiche bien
en revanche quand je click sur agrandissement de la fenetre celle-ci fonctionne bien sauf que les composant eux ne suivent pas

donc en regardant dans la FAQ j'ai trouvé une approche qui aurais pu aller sauf bien le compilateur me dit que la methode Resize ne fonctionne pas

est t'il possible en delphi de passer directement par un codage comme celui-ci

super(" mon programme");
setSize (800, 600);
setVisible (true);

voila le code que j'ai implementé

Code :

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

1
2
3
4
rocedure TWin2kAppForm.FormResize(Sender: TObject);
begin
  panel1.Height := panel1.Height - (panel1.top * 2);
  panel2.Width  := panel1.Width  - (panel2.top * 2);

et FormResize ne passe pas en compilation

D'avance je vous remercie

Cordialement

@++ christian

[Graffito]

Peut-être mettre un "p" devant le "rocedure"...

[jula2i]

Salut christian ginouvet,

Bon... En gros si j'ai bien compris, tu veux que tes composants graphiques (panel,..) ce redimensionnent en même temps que ta forme ?!
Si c'est ça, il faut voir du coté de la propriété Anchors (ou Align) des composants.

PS: Je ne sais pas ce que tu essaies de faire avec le code que tu nous fournis, mais le résultat risque de ce rapprocher très rapidement vers 0 (zéro) !!!

A+.

[Mahara]

J'ai eu souvent ce probleme
pour le contourner ne pas utiliser un tframe
mais un tform

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
 
MaForm := TMaForm.Create (MonParent);
with MaForm do
begin
  // Paramètres
  BorderStyle := bsNone;
  Parent := MonParent;  
  Align := alClient;
  ImageList := UIPictures;
  // Call back
  // tu met ici tes eventuels callback pour la gestion de l'interface          
 
  // Affichage
  Show;
end;