petit soucis avec un TStringGrid

Question

Bonjour,

J'ai install&#233; un Tstringgrid sur un fomulaire. Au lancement de la
f&#233;n&#234;tre mon Ts se charge bien et affiche les info. Je pr&#233;sice que ce Ts
est appel&#233; plusieurs fois par plusieurs proc&#233;dure j'ai donc cr&#233;e une
proc&#233;dure particuli&#232;re afin de ne pas r&#233;p&#233;ter les codes dans toutes les
proc&#233;dures.

 Le probl&#232;me c'est que lorsque je fais une mise &#224; jour a partir
d'une proc&#233;dure et que j'appel la proc&#233;dure d'affichage du Ts il faut
que je clique dans la barre de scrolling du Ts pour provoquer
l'affichage des lignes sinon j'ai un beau cadre tout vide avec
uniquement ma ligne d'entete.

A toutes fins utiles je vous joints le code de la proc&#233;dure d'affichage.



procedure TfrmACCUEIL.gril;

var

i,j:integer;

tirage: file of million;

euro:million;

begin

  for i:=0 to 8 do grille.cols[i].Clear;

  grille.ColWidths[0]:=24;grille.Cells[0,0]:='Tir';

  grille.ColWidths[1]:=55;grille.Cells[1,0]:='Date';

    for i:=2 to 8 do

      begin

      grille.ColWidths[i]:=21;

      grille.Cells[i,0]:='N&#176;';

      if i>6 then grille.Cells[i,0]:='ET';

      end;

      AssignFile (tirage,'c:\program files\Euro Million	irage.del');

      reset(tirage);

      j:=0;

      while not EOF(tirage) do

        begin

        read(tirage,euro); j:=j+1;grille.RowCount:=j+2;

               
grille.Cells[0,j]:=IntToStr(euro.index);

                grille.Cells[1,j]:=euro.date;

                grille.Cells[2,j]:=IntToStr(euro.n1);

                grille.Cells[3,j]:=IntToStr(euro.n2);

                grille.Cells[4,j]:=IntToStr(euro.n3);

                grille.Cells[5,j]:=IntToStr(euro.n4);

                grille.Cells[6,j]:=IntToStr(euro.n5);

               
grille.Cells[7,j]:=IntToStr(euro.et1);

               
grille.Cells[8,j]:=IntToStr(euro.et2);

        end;

 CloseFile(Tirage);grille.TopRow:=j+2;

end;

Cirec · Answer

Salut,
Essaye comme &#231;a :

....
                grille.Cells[8,j]:=IntToStr(euro.et2);
        end;
 CloseFile(Tirage);grille.TopRow:=j+2;
Grille.Invalidate;
end;

@+
Cirec

van6071 · Answer

Merci de ton aide mais ça marche pas il faut toujours que
 je clique dans la barre de scrol pour faire apparaitre les lignes

a+

Petit soucis avec un TStringGrid

2 réponses

Votre réponse

Discussions similaires