Discussion :

[dridri86]

Bonjour

Lors de l'exécution de mon application, je peux avoir une erreur et en informer l'utilisateur par le biais d'une messagedlg du type
MessageDlg('Erreur',mtError,[mbOk],0);

Mon problème est que lors de l'affichage de ce messagedlg j'ai le message d'erreur suivant d'une exception du débogueur:
Le projet a provoqué une classe d'exception EInvalidOperation avec le message 'Le canevas ne permet pas de dessiner' Processus stoppé.

J'ai déjà maintes fois utilisé les MessageDlg et n'ai jamais rencontré ce problème.

Si je mets un point d'arrêt avant la ligne d'affichage de code, et que j'affiche en pas à pas, cela se passe très bien.

Je dois donc avoir un problème temporel dans mon affichage mais je ne vois pas quoi.

D'avance merci

[MD Software]

Tente avec MessageBox

[nepherkaan]

Tu n'utiliserai pas des thread ou une dll externe avec callback ?

Si c'est le cas, il faut que ce soit ton thread principal qui gere le message, pas le thread secondaire ni ta callback.

++
N'K

[Reisubar]

EFfectivement. Apparamment, MessageDlg est appellé depuis un thread différent que le thread principal, ce qui déclenche ce message d'erreur curieux. Utilises soit Synchronize(), soit directement les API Windows (MessageBox).

[sjrd]

soit directement les API Windows (MessageBox).

Dans ce cas je te conseille vivement la routine ShowDialog que tu trouveras dans l'unité SjrdUsual.

[dridri86]

Bonjour

Merci pour vos réponses.

Vous aviez effectivement vu juste : j'affichais mes MessageDlg depuis un thread secondaire entraînant le problème évoqué.

Je vais donc me rabattre sur les MessageBox.

J'ai essayé d'installer le dpk sjrd mais il me plante à la compil
car il ne connait pas PosEx dans l'unité sjrdstrutils.

Me manque-t-il des prérequis?

Merci

[sjrd]

J'ai essayé d'installer le dpk sjrd mais il me plante à la compil
car il ne connait pas PosEx dans l'unité sjrdstrutils.

En fait c'est une fonction ajoutée dans Delphi 7. Tu peux la coder comme ceci dans SjrdStrUtils justement :

Code :

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

1
2
3
4
5
6
7
8
9
10
function PosEx(SubStr, Str : string; Index : integer) : integer;
var Max : integer;
begin
  Max := Length(Str)-Length(SubStr)+1;
  if Index < 1 then Index := 1;
  while Index <= Max do
    if Copy(Str, Index, Length(SubStr)) = SubStr then exit else
      inc(Index);
  Index := -1;
end;

Cette fonction est équivalente à Pos mis à part qu'elle débute la recherche au caractère d'indice Index.

[dridri86]

Merci pour l'info car je suis en D6.

JE vais certainement encore abuser mais maintenant à la compilation
c'est la directive $REGION qui passe pas.........

Une idée?

Merci

[sjrd]

c'est la directive $REGION qui passe pas.........

Tu peux virer tous les $REGION et $ENDREGION : c'est spécifique à Delphi 2005 et ils ne sont pas du tout indispensables.

[dridri86]

Ca y est : çà marche

Je n'étais pas au jus de toutes ces subtilités

Je te remercie