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