IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Langage Delphi Discussion :

!!! Générer dynamiquement des boutons dans un TToolBar !!!


Sujet :

Langage Delphi

  1. #1
    Membre averti

    Homme Profil pro
    Inscrit en
    Mars 2002
    Messages
    0
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mars 2002
    Messages : 0
    Points : 314
    Points
    314
    Par défaut !!! Générer dynamiquement des boutons dans un TToolBar !!!
    Je désire ajouter à un TToolBar des boutons.

    Je m'explique : J'ai un dossier qui contient un certain nombre de fichiers que je balaie au lancement de l'application. Chaque bouton de mon TToolBar se verra associé un de ces fichiers et permettra de l'ouvrir lorsque l'on cliquera dessus.

    Comment puis-je ajouter un bouton à mon TToolBar à chaque fois que je trouve un fichier !!!

  2. #2
    Expert éminent
    Avatar de Lung
    Profil pro
    Analyste-programmeur
    Inscrit en
    Mai 2002
    Messages
    2 662
    Détails du profil
    Informations personnelles :
    Âge : 43
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Analyste-programmeur
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mai 2002
    Messages : 2 662
    Points : 6 943
    Points
    6 943
    Par défaut
    J'ai trouvé ca dans l'aide :

    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
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    procedure AddButtons(ToolBar: TToolBar;
     
      Const ButtonCaptions: array of String);
    var
      I: Integer;
    begin
      for I := 0 to High(ButtonCaptions) do
        begin
          with TToolButton.Create(ToolBar) do
          begin
            Parent := ToolBar;
            Caption := ButtonCaptions[I];
            if (ButtonCaptions[I] = '|') then
              Style := tbsSeparator
            else
              Style := tbsButton;
     
          end;
        end;
    end;
     
    procedure TForm1.FormCreate(Sender: TObject);
    var
      ToolBar: TToolBar;
    begin
      ToolBar := TToolBar.Create(Self);
      ToolBar.Parent := Self;
      AddButtons(ToolBar, ['Nouveau', 'Enregistrer', '|', 'Couper', 'Copier', 'Coller']);
      ToolBar.ShowCaptions := True;
      ToolBar.Height := 40;
    end;
    Si ca peut t'aider ...

    L'urgent est fait, l'impossible est en cours, pour les miracles prévoir un délai. ___ Écrivez dans un français correct !!

    C++Builder 5 - Delphi 6#2 Entreprise - Delphi 2007 Entreprise - Delphi 2010 Architecte - Delphi XE Entreprise - Delphi XE7 Entreprise - Delphi 10 Entreprise - Delphi 10.3.2 Entreprise - Delphi 10.4.2 Entreprise
    OpenGL 2.1 - Oracle 10g - Paradox - Interbase (XE) - PostgreSQL (11.6 - 14.6)

  3. #3
    Membre averti

    Homme Profil pro
    Inscrit en
    Mars 2002
    Messages
    0
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Mars 2002
    Messages : 0
    Points : 314
    Points
    314
    Par défaut
    Merci, C'est OK maintenant.

Discussions similaires

  1. Création dynamique des boutons dans ScrollPane
    Par tmar houcem dans le forum AWT/Swing
    Réponses: 5
    Dernier message: 16/05/2014, 19h06
  2. Réponses: 2
    Dernier message: 21/11/2013, 15h52
  3. Générer dynamiquement des graphiques dans Plone
    Par virJnie dans le forum Zope
    Réponses: 1
    Dernier message: 25/06/2007, 15h23
  4. Pouvoir gérer les actions des boutons dans une classe
    Par Cyborg289 dans le forum Composants
    Réponses: 2
    Dernier message: 08/07/2005, 13h08
  5. [FLASH MX] Action des boutons dans un menu déroulant
    Par zab_paris dans le forum Flash
    Réponses: 1
    Dernier message: 05/07/2005, 19h14

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo