Bonjour,

habitué à FMX où j'utilise un couple BeginUpdate/EndUpdate je me demandais s'il était possible d'avoir quelque-chose d'équivalent en VCL ?

J'utilise un code de ce genre où ListeReps est un TcheckListBox, j'ai un clignotement désagréable

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
procedure TFormDesallouer.listerepresentants(const index : integer=0);
var i : integer;
begin
// ? beginupdate
ListeReps.Items.Clear;
Representants.Open;
i:=0;
while NOT Representants.EOF do
   begin
    ListeReps.Items.Add(Representants.FieldByName('CODE').asString+' : '+Representants.FieldByName('NOM').asString); // dans la théorie pas de changement dans le fichier mais ...
    if index=0
      then ListeReps.Checked[i]:=true
      else ListeReps.Checked[i]:=isBitSet(Representants.FieldByName('SELECTION').asInteger,index);
    Inc(i);
    Representants.Next;
   end;
Representants.Close;
// ? Endupdate
end;