comment rapeler un evenement ds une autre fonctionRésolu

Question

Bonjour je voudrai savoir si quelqu un saurai comment faire pour rapeler un evenemen ds une autre fonction merci.

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);


begin


  with (Sender as TStringGrid) do
  begin


      if (ACol 0) or (ARow 0)


      then  
        Canvas.Brush.Color := clBtnFace


      else if (stringgrid1.Cells[0,arow] =' Dimanche')
           then
           begin
           canvas.Brush.Color:=clblue;
           end
           else if stringgrid1.Cells[0,arow] =' Samedi'
                then
                canvas.Brush.Color:=clblue
                else
                     Canvas.Brush.Color :=clgreen;
                     Canvas.TextRect(Rect, Rect.Left +5, Rect.Top+5 , cells[acol, arow]);
                     Canvas.FrameRect(Rect);


   end;



end;

cs_Delphiprog · Accepted Answer

Euh...Florenth, je ne ne suis pa sur que passer nil en premier argument soit une bonne id&#233;e, d'autant plus que Creas utilise ce param&#232;tre (with (Sender as TStringGrid) do) ! 

Il faut alors &#233;crire :
procedure TForm1.MaProc;
begin
{ Evidemment, il faut fournir les parametres et l&#224;, c'est autre chose. }
  StringGrid1DrawCell(StringGrid1,0,0,Rect(10,10,10,10),TGridDrawState(0));
end;


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
<

florenth · Answer

Salut, Evenement ou pas evenement, cela reste quand même une méthode. Ne pas oublier qu'il existe un pointeur de méthode publié pour chaque evénement (qui apparaissent cependant dans la colonne evenements du concepteur). Donc, pour rappeler ton event tu as deux choix:

procedure TForm1.MaProc; begin { Evidemment, il faut fournir les parametres et là, c'est autre chose. } StringGrid1DrawCell(nil,0,0,Rect(10,10,10,10),TGridDrawState(0)); end;

ou

procedure TForm1.MaProc; begin StringGrid1.OnDrawCell(nil,0,0,Rect(10,10,10,10),TGridDrawState(0)); end;

@ ++ Florent

florenth · Answer

Attention Delphiprog, les arguments que j'ai pass&#233; &#224; la proc&#233;dure ne
sont pas ceux qui doivent &#234;tre retransmis en vrai. (c'&#233;tait juste un
exemple; il fallait bien mettre quelque chose). J'auraid d&#251; le pr&#233;ciser
c'est vrai.



Mais je ne peux pas deviner ce que Creas compte faire de cet &#233;venement,
donc je ne peux pas fournir les bons parametres. C'est vrai &#231;a,
qu'est-ce qu'il compte faire &#224; rappeler une proc&#233;dure d'&#233;venement comme
OnDrawCell ? A moins qu'il veuille redessiner les cellules (dans ce cas
il fausrait plutot utiliser Refresh, Invalidate ou les autres).



Je disais donc, Creal, que tu ne doit pas appeler cet proc&#233;dure en
utiisant les parametre que je t'ai fournis. C'est donc &#224; toi de les
donner.



@ ++ Florent

Si tu ne te plantes pas ......
tu ne poussera jamais

cs_Delphiprog · Answer

En r&#233;gle g&#233;n&#233;rale, il vaut mieux &#233;viter de d&#233;clencher des &#233;v&#232;nements par des appels dans le code directement. Ca ne fait pas tr&#232;s propre.
Dans le cas pr&#233;sent, c'est s&#251;r qu'un appel &#224; la m&#233;thode Repaint, Refresh, Update, etc du composant StringGrid1 suffirait amplement.


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
<

Comment rapeler un evenement ds une autre fonction

4 réponses

Votre réponse

Discussions similaires