Discussion :

[delphino7]

Bonjour

es que vous pouvez sil vous plait m'expliquer le principe de ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TFClient.BitBtn4Click(Sender: TObject);
var i:integer;
begin
     i:=TBitBtn(sender).Tag; //ceci si c possible stp 
     case i of
       1,2:begin
            Initialise(i); //ceci si c possible stp 
            DBEdit12.SetFocus;
           end;
       3:Table.Delete;
     end;
end;

merci

[Cl@udius]

Bonjour

Cette procédure OnClick est associée à plusieurs boutons (au moins 3 d'après ce code), et effectue une action particulière en fonction du bouton sur lequel le click a été effectué.

Code :

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

1
2
3
4
5
procedure TFClient.BitBtn4Click(Sender: TObject);
var
  i: Integer;
begin
  i := TBitBtn(Sender).Tag;

Lors de l'appel de la procédure, le paramètre Sender représente l'objet sur lequel on a cliqué. Puisqu'il s'agit d'un bouton, le Sender est transtypé en TBitBtn.

Code :

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

1
2
3
TBitBtn(Sender) 
// que l'on peut écrire aussi
(Sender as TBitBtn)

Ensuite la valeur de la propriété Tag du bouton est stocké dans la variable i.
Et suivant cette valeur, on effectue le traitement qui va bien.

Je suppose que ces 3 boutons sont: Ajouter, Modifier et Supprimer. Pour Ajouter et Modifier (Tag = 1 ou 2) un traitement est effectué par la procédure Initalise, mais ne me demande pas ce qu'elle fait. Je ne suis malheureusement pas devin.

Voilou,
@+ Claudius