Déclenchement inattendu de l'événement OnPaint

Bonjour tout le monde

J'ai un petit souci quand j'appuie sur les flèches du clavier ( et uniquement celles-ci ) qui me déclenchent l'événement OnPaint qui me redessine toute la fenêtre alors qu'a priori cela ne devrait pas le faire.

J'ai du coup essayé d'intercepter l'événement appuie sur une touche FormKeyPress ou FormKeyDown ce que j'arrive à présent à faire mais y aurait-il une commande pour empêcher l'événement OnPaint qui se déclenche ensuite ?

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

A bientôt

Laurent CUSSAC

Vendredi soir ? Dernier jour de congés ? c'est peut-être pour ça que je ne comprends pas trop la question.
Suis-je le seul ?

Bonsoir

Pour tenter d'être plus clair, lorsque j'appuie sur la flèche du haut ou du bas par exemple, cela déclenche l'événement OnPaint de la fiche, ce que je ne comprends pas. D'où ma question qui est peut-on éviter cela ?

Je vous remercie par avance de votre réponse et vous souhaite un agréable week-end.

Bonne soirée

Laurent CUSSAC

Code:

---

1 2 3 4 5

procedure TForm5.FormPaint(Sender: TObject); begin caption := datetimetostr(now); end;

---

J'ai testé ça et même en appuyant sur toutes les touches du clavier, ça ne déclenche pas l'évènement.
Il y a forcément un bout de code qui provoque ça quelque part.

Bonjour,

Citation:

---

Envoyé par Papy214

J'ai testé ça et même en appuyant sur toutes les touches du clavier, ça ne déclenche pas l'évènement.
Il y a forcément un bout de code qui provoque ça quelque part.

---

Ou alors la fiche/forme est plus grande que l'écran ?

Bonjour

Merci beaucoup pour vos réponses.

La fiche n'est pas plus grande que l'écran : en fait j'ai remarqué qu'en appuyant sur la flèche du haut par exemple, on change le composant ( en l’occurrence des boutons BitBtn sur ma fiche ) qui reçoit la focalisation et je pense que c'est cela qui doit entraîner un appel à la fonction OnPaint de la fenêtre. En effet, mon application contient des dizaines de fenêtres et ce problème apparaît pour chacune d'entre elles ( le source de chacune d'entre elles est très différent ).

Qu'en pensez-vous ?

Je vous souhaite une très bonne journée

Laurent CUSSAC

Et en faisant:

Code:

---

1 2 3 4 5

procedure TForm5.FormShow(Sender: TObject); begin Self.OnKeyDown := nil; end;

---

Le FomrShow de la fenêtre qui le nécessite bien sur.

Bonjour

Merci pour votre réponse mais le problème persiste :-(

En fait, tous les composants de la fenêtre restent affichés mais par exemple, tout ce qui a été affiché avec canvas.TextOut(..) disparait dès que j'appuie sur une des 4 flèches.

Phénomène très étrange ....

Très bonne journée à vous

Laurent CUSSAC

et en ajoutant ça ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

.... private procedure CMDialogKey(var AMessage: TCMDialogKey); message CM_DIALOGKEY; end;   var Form5: TForm5;   implementation   {$R *.dfm}   procedure TForm5.CMDialogKey(var AMessage: TCMDialogKey); begin if AMessage.CharCode in [VK_LEFT, VK_RIGHT, VK_DOWN, VK_UP] then AMessage.Result := 0 else begin AMessage.Result := 1; inherited; end; end;

---

j'ai d'abord testé sous D6 pour ne rien voir...puis sous XE6 et en effet le changement de focalisation provoque un OnPaint du parent; tout cela est lié à la gestion des thèmes. Le simple fait de passer la souris sur un TButton provoque un OnPaint de la fiche.

cependant si le texte affiché sur le canvas disparaît, c'est qu'il n'est pas dessiné - comme il se doit - dans l'événement OnPaint, c'est à dire au moment ou la fiche DOIT se dessiner.

Bonsoir

Merci pour toutes vos réponses : effectivement Paul, je n'avais pas implémenté l'événement OnPaint() car je ne pensais pas que le fait d'appuyer sur une touche flèche puisse déclencher le OnPaint() de la fiche. Du coup, j'ai tout reprogrammé les OnPaint() de toutes mes fenêtres et cela fonctionne nickel maintenant.

Bonne soirée à vous tous.

Bien cordialement

Laurent CUSSAC