[D6] Apparition d'un groupebox

Coucou tout le monde :)

Je vous explique mon lèger probleme , voila un screenshot de mon programme :

http://www.cipocher.com/1.jpg

J'aimerais qu'en cliquant sur les boutons des fleches :

"<" et ">"

que la fenêtre se reduise ou s'agrandisse pour faire afficher alternativement comme le screen précédent puis comme celui la :

http://www.cipocher.com/2.jpg

Comment puis je procéder svp ? merci d'avance

Salut,

dans la jvcl, tu as un composant qui s'appelle jvRollOut qui permet de faire ça facilement.

A+.

En jouant sur la taille de ta form principale cela devrait être possible non ?

merci pour vos réponses , je pense que les deux sont possibles mais est ce que jvcl est inclus dans delphi 6 ? je ne le trouve pas dans le menu du haut.

Sinon comment est ce que je pourrais jouer avec la taille de la forme ?

Form1 := size .. ???

Merci d'avance

Salut,

Comme l'a dit Malatar, tu peux jouer avec la taille de la Form.

Pour ce faire, il faut faire ceci:

Code:

---

Form1.Width:=MaTaille

---

Aussi, si tu réduis la taille de ta Form, il faudrait aussi penser à supprimer le scrollbar horizontal.

Pour ce faire soit dès la création de ta Form, dans l'inspecteur d'objet tu mets à false la propriété visible de HorzScrollBar, sinon tu peux le gérer par code comme ceci :

Code:

---

Form1.HorzScrollBar.Visible:=false;

---

Pour la jvcl, c'est par ici
J'espère que celà t'aidera ;)

non, la jvcl est une bibliothèque (gratuite) de composant s, trouvables sous la rubrique téléchargement de Delphi.

Pour redimensionner une form, par exemple:

Code:

---

Form1.Width:= Form1.Width-GroupBox1.Width;

---

[Edit]Arff, trop lent..[/Edit]

A+.

Merci pour votre aide, je vais voir tout ca :) et je viens cliquer sur le bouton Résolu si tout se passe bien :yaisse2:

Mince il y a un problème quand j'utilise les taille:
Voila mon code pour les deux boutons :

Code:

---

1 2 3 4 5 6 7 8 9

procedure TForm1.Button7Click(Sender: TObject); begin Form1.Width:= Form1.Width-GroupBox3.Width; end;   procedure TForm1.Button6Click(Sender: TObject); begin Form1.Width:= Form1.Width+GroupBox3.Width; end;

---

Ca compile sans erreurs mais quand je clique sur le bouton < ca réduit mais m'affiche ca et plante :

http://www.cipocher.com/3.jpg

Quand je l'utilise sans passer par delphi direct avec le .exe il marche trés bien mais quand je le ferme il me dit qu'il y a une violation d'adresse. Ensuite il reste dans les processus de windows :/

Dans l'aide il est dit que cette exception ne se rencontre que dans 3 cas :
-pointeur nil déréfèrencé
-écriture en mémoire réservée à l'éxécutable
-accés à une adresse au delà des limites de la mémoire virtuelle

Help me

En fait oublions ce problème , il n'apparait plus lors de lorsque on utilise l'executable , par contre il y a un autre probleme :

Comment autorisé le fait d'appuyer qu'une seule fois sur > ou < ?
Vous comprenez ma question ?

En fait si je clique deux fois de suite sur > il va s'agrandir encore :?

De meme pour < il se diminue encore :?

Quelques screens pour expliquer

Quand je clique deux fois sur > ca me donne :
http://www.cipocher.com/4.jpg

et deux fois sur < :

http://www.cipocher.com/5.jpg



ps: je m'occuperai de la scrollbar aprés.
pss: si on peut aussi régler le problème de violation d'adresse je suis preneur :cry: il me parle de eAccessViolation

Merci d'avance

Citation:

---

Envoyé par Vinceee38

Comment autoriser le fait d'appuyer qu'une seule fois sur > ou < ?
Vous comprenez ma question ?

---

Tu ne peux pas faire une vérification sur les largeurs ?

Citation:

---

Envoyé par Lung

Tu ne peux pas faire une vérification sur les largeurs ?

---

Euh si surement mais comme je suis pas trés calé en delphi je ne sais pas comment procéder :/

Il suffirait de mettre, lorsque ta Form est en plein écran le '>' à enable:= false et l'autre à true. Inversement, lorsque tu cliqueras sur le '<', tu changes les propriétés enable de tes 2 boutons.

Je sais pas si j'ai été assez clair :roll:

Si j'ai trés bien compri :) merci je vais essayer

Merci ero-sennin c'etait une trés bonne idée ca marche nikel :)
héhé

Sinon merci à tous j'ai réglé tout mes problemes , en mettant un CaFree sur l'événement OnClose de ma Form1.

Et en utilisant un

Code:

---

1 2 3

application.createForm(TForm2, Form2); Form2.showModal; Form2.Free;

---

pour chaque création de forme.

Voila il n'y a plus d'erreur tout marche trés bien :)

Salut Vinceee38,

pourrais-tu me dire quel est le composant que tu utilises pour l'affichage de l'explorateur ?

Est-il possible de n'afficher que les lecteurs ?

Merci beaucoup de ta réponse !