Discussion :

[Vinceee38]

Coucou tout le monde

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



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 :



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

[PadawanDuDelphi]

Salut,

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

A+.

[Rayek]

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

[Vinceee38]

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

[ero-sennin]

Salut,

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

Pour ce faire, il faut faire ceci:

Code :

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

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 :

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

Form1.HorzScrollBar.Visible:=false;

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

[PadawanDuDelphi]

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 :

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

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

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

A+.

[Vinceee38]

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

[Vinceee38]

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

Code :

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

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 :



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

[Vinceee38]

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 :


et deux fois sur < :





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 il me parle de eAccessViolation

Merci d'avance

[Lung]

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 ?

[Vinceee38]

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 :/

[ero-sennin]

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

[Vinceee38]

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

[Vinceee38]

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 :

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

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

[zemeilleurofgreg]

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 !