Discussion :

[Aos]

Bonjour a tous,

Par ce dimanche ensoleillé, j'èspere que quelques ames valeureuse se trouvent devant leur ordinateur .

Je sais que pour bloquer un bouton en delphi, il y a monBouton.enable:=false;

L'idée en faite, serait de faire une procedure qui bloque/debloque tout les boutons d'une fiche. J'ai pas d'idée du tout.

Il me semble néanmoins qu'il y a une possibilités en passant scannant tout les elements d'une page, un machin genre "component", je sias c'est tres flou, je l'ai fais il y a longtemps

Merci

[evarisnea]

Il me semble néanmoins qu'il y a une possibilités en passant scannant tout les elements d'une page, un machin genre "component", je sias c'est tres flou, je l'ai fais il y a longtemps

Merci

effectivement!
chaque objet "possesseur" d'autres objets tient une liste des ceux ci avec sa propriété Components. une idée serait donc de parcourir ce tableau et de tester le type de chaque objet.
exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.EtatBoutonsForm( bEtat : Boolean );
var
  i:Integer;
begin
  //parcourir tous les objets de la form
  for i:=0 to ComponentCount - 1 do
    //tester la classe de l'objet
    if Components[i] is TButton then
      //modifier sa propriété Enabled s'il s'agit d'un bouton
      TButton(Components[i]).Enabled := bEtat;
end;

voilà voilà ...

[Cl@udius]

Salut

Une autre solution consisterais à associer tes boutons à une Action.

Et dans le Update du TAction, tu places ce code:

Code :

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

1
2
3
4
5
 
procedure TForm1.Action1Update(Sender: TObject);
begin
  TAction(Sender).Enabled := bEtat;
end;

@+ claudius

[Aos]

Merci a tous, ça marche impeccable.

Par contre, quand j'essaye de la crée en tant que procedure, ça me marque identificateur non declaré 'compononentCount' et "component".
Si je place le code sur un bouton directement, ça marche impec.


CLAUDIUS, je ne connais pas se genre de methode, jamais vu/utiliser donc si tu pouvais m'en dire un peu plus ou me dirigier vers un cours/tuts

Merci

ci dessous l'exemple de procedure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure etatButton(sender : TObject;bEtat : Boolean);
var
  i:Integer;
begin
  //parcourir tous les objets de la form
  for i:=0 to ComponentCount - 1 do
    //tester la classe de l'objet
    if Components[i] is TButton then
      //modifier sa propriété Enabled s'il s'agit d'un bouton
      TButton(Components[i]).Enabled := bEtat;
end;

[Cl@udius]

Re,

Parmi les exemples fournit avec Delphi (pour ma part D7) tu as un exemple d'utilisation des actions (avec un TActionList).
Tu peux y jeter un coup d'oeil.

Dans le principe tu crées une action, tu lui définis ce quelle doit faire (OnExecute) et quand l'action est disponible (OnUpdate).

Maintenant tu relies tes contrôles à ton action (Boutons, Eléments de menu, bouton de barre d'outils,...).

Lorsque l'action n'est pas disponible, tous les contrôles qui lui sont associés sont grisés. Pratique car centralisé !!!

@+ Claudius

[Aos]

aaaaaaaaaaaah ok.

Ah oui c'est pas mal du tout

Merci en tout cas

[banban54]

re
tu peux par exemple faire:

Code :

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

1
2
3
4
5
6
7
8
9
procedure DisableTousLesBouton(Sender: TObject);
var
i       : integer;
begin     
    For i:=0 to sender.ComponentCount-1 do 
      if Components[i] is Tbutton Then
        Tbutton (Components[i]).enabled := false;
end;

et ensuite l'appeler à partir d'une autre procédure par:

Code :

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

1
2
 
DisableTousLesBouton(Form2); // ou tout autre objet, panel par exemple

à plus

[Aos]

ah je pensais que ça marcherait mais finalement ça ne marche pas
Il me mets toujours la meme erreur. Identifcateur non declaré "componentcount" et components

[banban54]

bonjour
c'est vrai il fait très beau!

essayer quelque chose du genre:

Code :

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

1
2
3
4
5
6
7
8
 
var
i       : integer;
begin     
    For i:=0 to ComponentCount-1 do 
      if Components[i] is Tbutton Then
        Tbutton (Components[i]).enabled := false;
end;

à plus