Discussion :

[chasseur37]

Salut a tous

Je travaille sous Delphi7 et j'ai dans une fenetre plusieurs objets TDBEdit qui ont un champs d'une table paradox.
Je veux que lorsque l'utilisateur click sur le bouton gauche de la souris j'incremente la "valeur du champs TDBEdit" ou "du champs de ma table" de 1 et désincrémente de 1 quand l'utilisateur click avec le bouton de droite.

Ce que je n'arrive pas a faire, c'est de réalisé une seule seule fonction pour tous mes TDBEdit, mais le probleme c'est que je ne sais pas sur quelle champs de la table de je me trouve, enfin presque car toutes les infos sont dans le TDBEDit.

J'espere que mes explications sont clair

Merci d'avance !!!

[Rayek]

tu remarqueras que souvent tu as dans les paramètres des événements des composants un Sender.
C'est lui que tu vas devoir utiliser pour savoir d'où viens tel ou tel objet.

Ne connaissant pas le nom de table, il faudrat que tu adaptes le code ci dessous

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
 
procedure TMaForm.DBEdit23MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  LeChamp : String;
  iAdd : integer;
begin
  MaTable.edit;
  /// on récupère le nom du champ du dbedit qui a été solicité
  LeChamp := TDbEdit(Sender).DataField;
  case Button of
    mbLeft: iAdd := 1;   
    mbRight:iAdd := -1;
  end;
  try
  MaTable.FieldByName(LeChamp).asInterger  := MaTable.FieldByName(LeChamp).asInterger + iAdd;   
  MaTable.Post;
  Except on E:Exception do
    begin
      MaTable.Cancel;
      ShowMEssage('Erreur sur la table : ' + E.Message);
    end;
  end;
end;

A toi d'adapter maintenant

[chasseur37]

Merci

C'est cool je ne connaissais pas cette propriété !!!