Discussion :

[Fandyz]

Salut. J'aimerais savoir comment faire des menus avec CategoryPanel de Delphi XE et comment ajouter des actions pour chaque item. Merci.

[lefju cabro]

Tu parles des TCategoryPanelGroup ?
Si oui, tu en déposes un sur ta fiche, le sélectionnes et clic-droit/Nouveau panneau

[Fandyz]

Cette action me permet d'ajouter des groupes. j'ai ajouté des items à ces groupes et je veux ajouter des actions pour chaque item

[ShaiLeTroll]

Le TCategoryPanelGroup contient n TCategoryPanel
Comme le décrit lefju cabro, le clic droit pour l'ajout

TCategoryPanel est un Panel amélioré, on peut y glisser les composants que l'on souhaite ensuite comme TButton ou TEdit
Il faut juste bien cliquer sur le TCategoryPanel avant de choisir le nouveau control, pour que le TCategoryPanel soit le parent actif
on peut corriger l'imbrication avec le Menu Structure (MAJ+ALT+F11)

L'Event OnExpand permet de gérer l'affichage d'un TCategoryPanel, idem lors du repli OnCollapse, un peu comme un TTreeview

Le TCategoryPanelGroup et ses TCategoryPanel fonctionne comme le TPageControl et ses TTabSheet durant la phase de Design !


Ne pas confondre avec le TCategoryButtons et ses TButtonCategory
Chaque TButtonCategory contient sa propre TButtonCollection contenant des TButtonItem que l'on doit gérer soit globalement via TCategoryButtons.OnButtonClicked ou individuellement TButtonItem.OnClick

[Fandyz]

Je me suis trompé quand je formulais ma question. Ma préoccupation portait plutôt sur les CategoryButton de Delphi XE.
Quelqu'un pourrait me donner un tuyau sur comment les utiliser?
(surtout comment gérer la réponse au clic sur un des boutons)

[lefju cabro]

Dans ton éditeur tu ajoutes un TButtonCategory.
Sur cet objet, tu fais clique-droit, "éditeur de catégorie" et tu peux alors ajouter des catégories (= groupe de boutons).
Pour chaque catégories, tu peux ajouter des items (= boutons).
Chaque item a alors un événement OnClick et une Action.


Les propriétes des boutons qui sont communes (couleur, largeur, hauteur...) se modifient dans les propriétes du TButtonCategory.

[Fandyz]

Merci pour ton aide. Seulement, ma préoccupation vient du fait que j'ai tenté la méthode que tu me suggères sans succès. Le OnClick marche bien sur les catégories mais pas sur les boutons.
N'est-il pas possible d'utiliser leur propriété Action? Si c'est le cas, comment procède-t-on?

[lefju cabro]

Merci pour ton aide. Seulement, ma préoccupation vient du fait que j'ai tenté la méthode que tu me suggères sans succès. Le OnClick marche bien sur les catégories mais pas sur les boutons.
N'est-il pas possible d'utiliser leur propriété Action? Si c'est le cas, comment procède-t-on?

Le onclick sur les boutons fonctionnent très bien chez moi (Delphi XE2).
Essaye de voir avec la pièce jointe si ça arrive à te dépanner.

Pour créer une action, tu dois créer une ActionList qui va contenir toutes tes actions. Ensuite, tu affectes l'action au bouton.

[Fandyz]

Merci pour le doc.
J'ai lu un tuto du même genre qui ne m'a pas aidé plus. Tout comme le tiens, il explique comment créer les boutons or je veux savoir comment répondre aux actions de l'utilisateur sur ces boutons.
Voici le lien : http://www.functionx.com/delphi/cont...orybuttons.htm

[lefju cabro]

Merci pour le doc.
je veux savoir comment répondre aux actions de l'utilisateur sur ces boutons.

On est d'accord que tu veux implémenter le OnClick de chaque bouton ?
Si oui, tu as ta solution dans:
- le tutoriel que tu m'as envoyé à partir de Practical Learning: Using Images on Buttons/43.
- la doc que je t'ai transmis à la dernière page: sélection d'un TButtonItem, on se positionne dans l'onglet Evénements de l'inspecteur d'objet et on double clique sur la partie vide située à côté d'Onclick.

Tu peux aussi associer dynamiquement chaque évènement lors de la création d'un TButtonItem :

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
16
17
18
procedure TForm1.FormCreate(Sender: TObject);
var
    SeriesOfButtons : TCategoryButtons;
    Category        : TButtonCategory;
    btn             : TButtonItem;
begin
    SeriesOfButtons := TCategoryButtons.Create(Self);
    SeriesOfButtons.Parent := Self;

    SeriesOfButtons.Left := 8;
    SeriesOfButtons.Top  := 40;

    Category := SeriesOfButtons.Categories.Add;

    btn := Category.Items.Add();
    btn.Caption := 'Set';
    btn.OnClick:= MonEvenementOnClickDejaImplemente ;
end;

[Fandyz]

Mon problème est plus général en fait; il ne concerne pas seulement la réponse au clic. Même les infos-bulles de mes Items ne sont pas affichés. Seuls ceux des ButtonCategory le sont.
J'ai même écrit une instruction pour afficher le nom du composant sur lequel le clic est effectué et quand je clique sur un Item, il n'y a aucun effet visuel sur le bouton et c'est le nom de la catégorie qui est renvoyé.
C'est comme si un masque de la catégorie recouvrait tous ses boutons pour en empêcher l'accès.

[Fandyz]

Est-ce quelqu'un a déjà rencontré et résolu un tel cas?