Delphes. Comment Désactiver/Activer les contrôles sans déclenchement des contrôles événements

J'ai un DataSet (TZQuery), qui a plusieurs champs booléens, qui ont TDBCheckBoxes affecté.

Ces Cases ont "OnClick" des événements qui leur sont confiées et qu'ils sont déclenchés à chaque fois que je change les valeurs de champ (qui sont affectés à des cases à cocher).

Le problème est que je n'ai pas besoin de ces événements triggerred, au cours de nombreuses opérations-je faire avec le jeu de données.

J'ai essayé d'appeler DataSet.DisableControls, mais c'est que les événements sont appelés juste après que j'ai appeler DataSet.EnableControls.

Donc ma question est existe - il un moyen pour désactiver le déclenchement de contrôles de bases de Données des événements.

Modifier (image plus grande):

Si une exception se produit pendant disons que l'enregistrement de données, je dois charger les valeurs par défaut (ou les valeurs que j'ai eu avant de l'enregistrer). Maintenant, lors du chargement des données, tous ces événements (TDBCheckBoxes et d'autres contrôles de bases de données) sont déclenchées, qui font toutes sortes d'activités qui créent des gal et parfois même des changements non désirés de données, je suis à la recherche d'une solution universelle de la désactivation de tous pour une courte période de temps.

Si vous utilisez des listes d'actions alors vous pouvez tout simplement désactiver l'action de la liste, tandis que la mise à jour de la base de données
puis ne pas utiliser DB contrôles connaissance et de faire le lien entre vous-même...

InformationsquelleAutor ertx | 2012-06-19

6

Bâtiment sur Guillem du post:

Désactiver tout:

Traverser chaque composant sur la forme avec la boucle for, illustré ci-dessous, la modification des propriétés à la valeur désirée.

Si vous voulez plus tard, revenir en arrière à l'original des valeurs de propriété, alors vous devez enregistrer la valeur d'origine (comme OldEvent est utilisée ci-dessous.)

Modifier: Le code ci-dessous illustre le concept clé en cours de discussion. Si des éléments sont ajoutés ou supprimés au moment de l'exécution, ou si vous voulez absolument utiliser le moins de mémoire, puis d'utiliser un tableau dynamique, et comme Pieter suggère, stocker des pointeurs vers les composants plutôt que de l'indexation pour eux.
```
  const
    MAX_COMPONENTS_ON_PAGE = 100; // arbitrarily larger than what you'd expect. (Use a dynamic array if this worries you.
  var 
     OldEvent: Array[0.. MAX_COMPONENTS_ON_PAGE - 1] of TNotifyEvent; // save original values here
     i: Integer;
  begin                                 
   for i := 0 to ComponentCount - 1 do 
   begin
     if (Components[i] is TCheckBox)  then 
        begin
          OldEvent[i] := TCheckBox(Components[i]).OnClick; // remember old state  
          TCheckBox(Components[i]).OnClick := nil;
        end
      else if (Components[i] is TEdit) then
         begin
           OldEvent[i] := TEdit(Components[i]).OnClick; // remember old state  
           TEdit(Components[i]).OnClick := nil;          
         end;
    end;
```
Revenir à d'anciennes valeurs
```
 for i := 0 to ComponentCount - 1 do 
 begin
   if (Components[i] is TCheckBox)  then
      TCheckBox(Components[i]).OnClick := OldEvent[i]
   else if (Components[i] is TEdit)  then
      TEdit(Components[i]).OnClick := OldEvent[i];
 end;
```
Il y a peut être un moyen de plier tous les cas relevés dans un test générique que les réponses "Ne cette composante ont un OnClickEvent" -- mais je ne sais pas ce que c'est.

J'espère que quelqu'un va critiquer de manière constructive ma réponse (plutôt que juste en bas à droit de vote de ce dernier.) Mais, nous l'espérons ce que j'ai indiqué ci-dessus sera réalisable.
- J'ai considérées à l'aide de ce code, mais je suis inquiet ComponentCount peut changer, ou en quelque sorte le désordre de l'ordre des composants dans la forme tandis que les mesures sont prises
- ComponentCount ne change pas et l'ordre des éléments ne changera pas, sauf si vous êtes dynamiquement l'ajout et la suppression de composants à l'exécution, autant que je sache. @ertx: merci pour votre nécessaire de modifier le code.
- À la réflexion, je ne sais pas pourquoi vous avez ajouté la variable d'Index. À l'aide de la boucle for de la variable "i" comme un indice, autant que je sache, marcherait bien.
- il serait ignorer les indices et enregistrer seulement ceux des éléments de tableau, qui représentent TEdits et TCheckBoxes, résultant en un tableau vide éléments (pas sûr que ce serait d'allouer plus de mémoire ou pas), de toute façon c'était un [0] codé en dur avant, et je vais accepter votre réponse, merci pour l'effort
- au lieu de prendre l'index, faire une liste de pointeurs vers les composants que vous êtes à la désactivation. Puis, quand vous êtes de les réactiver, vous pouvez parcourir la liste de pointeurs. Cela fait de vous indepent de savoir si entre la maladie et l'activation de la componentcount changements. Juste assurez-vous d'attraper l'exception, parce que d'une case à cocher peut avoir disparu.
InformationsquelleAutor RobertFrank
5

Une façon de le faire est la suivante:
```
var
  Event : TNotifyEvent;    
begin
  Event := myCheckbox.OnClick;
  try
    myCheckbox.OnClick := nil;
    //your code here
  finally
    myCheckbox.OnClick := Event;
  end;
end;
```
HTH
- Cela ne fonctionnera pas car le code est basé sur un modèle et je ne sais pas combien de cases à cocher peuvent être affectées à un domaine, ou de cases à cocher qui sont affectés à quel domaine
- Hmm ok, pouvez-vous s'il vous plaît ellaborate sur la façon dont votre application attribue les cases à cocher pour les champs? De votre commentaire, je comprends ces cases à cocher sont utilisées dans une grille. Suis-je raison?
- Non, j'ai hérité d'un formulaire, dans lequel, les cases à cocher sont affectés à la main, au moment de la conception, mais la case n'est qu'un exemple, je vais avoir le même problème avec TEdits etc.. je vais essayer de modifier l'original post pour vous donner une meilleure vue sur le problème.
InformationsquelleAutor Guillem Vicens
2

La conception interne de la TCustomCheckBox est qu'il déclenche la Click méthode à chaque fois le Checked de la propriété en cas de changement. Soit en cliquant dessus ou en le choisissant dans le code. Et c'est ce qui se passe ici lorsque vous appelez EnableControls parce que le contrôle est mis à jour pour afficher la valeur du champ relié dans votre jeu de données.

TButtonControl (qui est ce que TCustomCheckBox hérite de) a la propriété ClicksDisabled. Utiliser ce lieu de (ou en plus) de la DisableControls/EnableControls appel. Malheureusement, il est protégé et ne peut être rendue publique par TCustomCheckBox mais vous pouvez utiliser un petit hack pour y accéder:
```
type
  TButtonControlAccess = class(TButtonControl)
  public
    property ClicksDisabled;
  end;

...

TButtonControlAccess(MyCheckBox1).ClicksDisabled := True;
// do some dataset stuff
TButtonControlAccess(MyCheckBox1).ClicksDisabled := False;
```
Bien sûr, vous pouvez mettre ceci dans une méthode qui vérifie tous les composants et les ensembles de cette propriété si le contrôle hérite de TCustomCheckBox ou d'autres critères.

InformationsquelleAutor Stefan Glienke

Vous devez vous connecter pour publier un commentaire.