Discussion :

[cretindezalpes]

Bonjour,

j'aurais aimé savoir s'il existe des composants ou des manières d'utiliser les composants existants pour créer une sorte de pagecontrol à double entrée.

-- P1 - P2 - P3

C1
|
C2 ...Contenu...
|
C3

La page de contenu dépendrait des items {P1,P2,P3} et {C1,C2,C3} sélectionnés.

J'ai essayé cela en utilisant un tabcontrol (avec item horizontal) et un pagecontrol (en rendant visibles seulement 3 des 9 TabSheet suivant l'item du tabcontrol sélectionné) mais le rendu n'est pas extraordinaire.

Merci d'avance.

[edam]

remplace tes c1..c3 par des TSpeedbuton avec TSpeedButton.GroupIndex<>0 ou simplement un tabcontrol à 3 volet, et tu crée une pagecontrol à 9 page; tu cache saut inutilisé seleon les bouton click

[LadyWasky]

J'ai essayé cela en utilisant un tabcontrol (avec item horizontal) et un pagecontrol (en rendant visibles seulement 3 des 9 TabSheet suivant l'item du tabcontrol sélectionné) mais le rendu n'est pas extraordinaire.

Merci d'avance.

Mouais...

Voilà ce que je te propose :
Tu prends un TNoteBook (Palette Win 3.1 ) et deux TTabControl.

Dans le TNoteBook, tu crées 9 pages (propriété pages)
et tu codes le OnTabChange de chaque TTabControl comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm1.TabControl1Change(Sender: TObject);
begin
  Notebook1.PageIndex:=TabControl1.TabIndex*3+TabControl2.TabIndex;
end;
 
procedure TForm1.TabControl2Change(Sender: TObject);
begin
   Notebook1.PageIndex:=TabControl1.TabIndex*3+TabControl2.TabIndex;
end;

Bon dev

[LadyWasky]

Démonstration

[cretindezalpes]

MErci. je vais tester tout cela

[cretindezalpes]

C'est exactement ce que je voulais. Sauf que...

erf...
erf...
erf...

Le tabcontrol n'affiche pas le nom des tab en mode vertical avec le style XP (la loose).

Je vais chercher pour tenter de remedier à ce problème.

[LadyWasky]

C'est exactement ce que je voulais. Sauf que...

erf...
erf...
erf...

Le tabcontrol n'affiche pas le nom des tab en mode vertical avec le style XP (la loose).

Je vais chercher pour tenter de remedier à ce problème.

mais, mais, mais, j'y suis pour rien !!!
En passant, c'est vrai que ça craint...