Bonjour,

J'essaie d'intégrer ce code trouvé dans la FAQ dans mon programme :

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
procedure TForm1.StringGrid1drawcell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  With Sender As TStringGrid Do With Canvas Do
  Begin  Ca bloque là !!
    { Sélection de la couleur de fond }
    If gdFixed in State Then
      Brush.Color := clBtnFace
    Else If gdSelected In State Then
            Brush.Color := clNavy
          Else Brush.Color := clWhite;

    { Dessin du fond }
    FillRect(Rect);

    { Sélection de la couleur de texte }
    If gdSelected In State Then
      SetTextColor(Canvas.Handle,clWhite)
    Else SetTextColor(Canvas.Handle,clBlack);

    { Dessin du texte en utilisant la fonction API }
    DrawText(Canvas.Handle, PChar(Cells[ACol,ARow]), -1, Rect ,
              DT_CENTER or DT_NOPREFIX or DT_WORDBREAK );
  End;
end;
Le message est le suivant : 'Identificateur redécaré'. D'ou vient le problème?