Discussion :

[ninaleo]

Bonjour tout le monde

J'ai cherché sur le forum mais je n'ai pas trouvé si on pouvait empêcher, bloquer ou rediriger l'événement onpaint d'une tform ? En effet, pour mon application, je ne souhaite pas que le contenu de la fenêtre soit redessinée lors d'un déplacement de celle-ci ?

Je vous remercie par avance de votre réponse et vous souhaite une très bonne soirée

Laurent CUSSAC

[tourlourou]

Il suffit je pense de faire ton propre TForm.OnPaintl qui testera si la fiche se déplace et dans le cas où elle ne se déplace pas, déclenchera la méthode ancestrale.

[ninaleo]

Merci pour votre réponse.

Cela m'a l'air d'être la bonne solution mais comment déclarer cette procédure OnPaint dans ma TForm pour qu'elle soit justement appelée lors d'un rafraîchissement de fenêtre ? quels sont les arguments qu'il faut déclarer ?
Est-il possible le cas échéant de définir pour la méthode Paint la zone que l'on souhaite rafraichir ? ( j'ai essayé ceci MyRgn := CreateRectRgn(10,10,20,20);
SelectClipRgn(MaForme.Canvas.Handle,MyRgn); mais cela ne fonctionne pas, toute la form se redessine )

Je vous remercie par avance de votre réponse et vous souhaite une bonne journée.

Laurent CUSSAC

[guillemouze]

Il suffit je pense de faire ton propre TForm.OnPaintl qui testera si la fiche se déplace et dans le cas où elle ne se déplace pas, déclenchera la méthode ancestrale.

Dans la mesure du possible (et c'est souvent possible), il ne faut pas affecter un événement vers soi-même. Principalement car quelqu'un peut affecter cet événement à une autre procedure, auquel cas ton traitement sera chuinté. Dans la majorité (tous ?) des composants VCL, tu aura une procedure virtuelle correspondant à l'evenenement. La plupart du temps ces procedures ne font qu'un simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if Assigned(MonEvenement) then
  MonEvenement(Self);

dans ton cas, il faut que tu surcharge le Paint :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
TForm1 = class(TForm)
protected
  procedure Paint; override;
  ...
end;

mais ca ne fonctionnera certainement pas car ne pas appeller le inherited empechera juste l'evenement OnPaint d'etre lancé.

La solution je pense serait de surcharger le message, et ne pas appeller le inherited selon le cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
TForm1 = class(TForm)
protected
  procedure WMPaint(var Message: TWMPaint); message WM_PAINT;
end;
 
...
 
procedure WMPaint(var Message: TWMPaint);
begin
  if not DeplacementEnCours then
    inherited;
end;

[ninaleo]

Un grand merci à vous, cela fonctionne nickel à présent !!!!!

Bonne fin de soirée

Laurent CUSSAC