graphique tshapeRésolu

Question

Bonjour,
J'utilise un tshape pour faire un graphique et j'ai plusieur TForm.
Comment faire pour que le graphique dans un Tshape ne soit pas effac&#233; 
lorsque tu passes sur cette fenetre avec une autre fenetre?
Merci
F

Cirec · Accepted Answer

Salut pierre &#224; feu , 

il faut dans le OnPaint de la fen&#234;tre qui contient le TShape faire un appel &#224; la proc&#233;dure qui dessine le graphique 
et la il serat automatiquement redessin&#233; lors d'un passage d'une autre fen&#234;tre par dessus.

@+
Cirec

feuerstein · Answer

Bonjour,
Merci pour ta r&#233;ponse
J'ai fait un truc tres exotique?
J ai mis toute les procedures sur un autre Tform
Comment faire?
As tu une id&#233;e?
Merci
F

Cirec · Answer

et bien dans ce cas il faut faire :
Form5 n'est qu'un exemple il faut le remplacer par le nom correspondant chez toi

Procedure TForm1.OnPaint(Sender : TObject);
Begin
   Form5.DessineGraphique;
End;

Deux choses importantes il faut que dans les Uses de la Form1 soit d&#233;clar&#233; l'unit&#233; de la Form5 et que la proc&#233;dure de dessin soit accessible de l'ext&#233;rieur :

type
  TForm5 = class(TForm)
   ....
    Procedure DessineGraphique;  // soit ici
  private
    { D&#233;clarations priv&#233;es }
  public
    { D&#233;clarations publiques }
    Procedure DessineGraphique;  // o&#249; ici 
  end;


    Procedure DessineGraphique;  // o&#249; encore ici. Si tu optes pour celle-ci il n'est pas utile de mettre Form5. avant le nom de la proc&#233;dure un simple appel par DessineGraphique; dans Form1 suffit 

var
  Form5: TForm5;

implementation

.....

Voil&#224; c'est tout

@+
Cirec

Graphique tshape

3 réponses

Votre réponse

Discussions similaires