Discussion :

[Anonymous]

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 !!!

[Lung]

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 ...

[Anonymous]

Merci, C'est OK maintenant.