Discussion :

[Papino]

Bonjour,

Est il possible d'inactiver la souris, puis de la réactiver ?
En l'occurrence il s'agit d'éviter un post automatique en cours d'édition, dans un dbgrid en cliquant sur une autre ligne, par un instruction du type:

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.DataSource2StateChange(Sender: TObject);
begin
  if datasource2.State in ([dsInsert,dsEdit]) then
      Mouse.enabled := False
      else
      Mouse.enabled := True;
end;

[edam]

pas testé

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
 
Je pense que t’utilise un Tbutton pour posté les modification
Alors utlise un variable boolean,
Par example
Procedure  TForm1.DataSource2beforpost ;
begin
If not ok then abort
Else
  Begin
    ....
    ok=false;
  End;
End;
procedure TForm1.DataSource2StateChange(Sender: TObject); 
begin 
  if datasource2.State in ([dsInsert,dsEdit]) then 
      ok := false;
end; 
procedure TForm1.buttonOKclik(Sender: TObject);  
begin
       ok:=true;
       table.post;
end;
procedure TForm1.buttonannulclik(Sender: TObject);  
begin
       ok:=false;
       table.cancel;
end;

[DMO]

Je crois comprendre que le comportement que tu souhaites éviter est le suivant : tu édites une ligne d'un DBGrid, et tu ne veux pas que l'utilisateur puisse poster en cliquant sur une autre ligne du DBGrid avec la souris.

Si c'est bien cela, je ne crois pas que tu puisses obtenir ce que tu cherches simplement, sans utiliser un autre composant que le DBGrid qui rendrait cela optionnel (je n'ai pas de suggestion, d'autres en ont peut-être), ou en développant ton propre DBGrid qui redéfinirait la procédure MouseDown, sans appeler

Code :

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

FDatalink.MoveBy(Y - Row);

qui est à l'origine du post.

[Papino]

C'est exactement ça: je souhaite, après édition d'une ligne dans le dbgrid, mettre à jour automatiquement d'autres enregistrements. Les événements déclenchés par Post ou Update ou Insert sont inutilisables car ils entrainent une "boucle" infinie. Je suis donc obligé de "bloquer" toute possibilité de Post non controlé.
Je crois que je vais faire cette mise à jour dans un fiche ou seul apparaitra l'enregistrement à modifier, la "sortie" se faisant obligatoirement par une validation ( avec les mises à jour complémentaires en arriére plan ) ou une annulation.

Merci de votre aide précieuse .

[edam]

tu as vu mon poste

[Papino]

tu as vu mon poste

Oui bien sût et je t'en remercie. Cette solution fonctionne, mais je souhaite garder une interface cohérente dans toute l'application, en utilisant un DBNavigator standard, sans ajout de "boutons" supplémentaires pour poster dans le IBdataset. Seul apparaît un message "OK" "Annuler" pour confirmer le Commit sur la base.

Merci encore.