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éclaré l'unité de la Form5 et que la procédure de dessin soit accessible de l'extérieur :
type
TForm5 = class(TForm)
....
Procedure DessineGraphique; // soit ici
private
{ Déclarations privées }
public
{ Déclarations publiques }
Procedure DessineGraphique; // où ici
end;
Procedure DessineGraphique; // où encore ici. Si tu optes pour celle-ci il n'est pas utile de mettre Form5. avant le nom de la procédure un simple appel par DessineGraphique; dans Form1 suffit
var
Form5: TForm5;
implementation
.....
Voilà c'est tout
@+
Cirec