Discussion :

[iam]

bonjour tout le monde
j'ai dèjà posé ce pb dans le forum, mais je n'arrive pas à cerner le pb, j'utilise des formes qui on le style : fsStayOnTop, quand j'affiiche des messagedlg ou j'utilise showmessage, mes boite de dialoge s'affichent des fois derrières mes formes, ils m'ont proposé dans ce forum d'utiliser les deux instructions suivantes : Application.NormalizeAllTopMosts et Application.RestoreTopMosts, mais ça n'a pas résolu mon pb, sur certain machine malgré de l'utilisation de la première instruction ma boite de message s'affiche tjrs en dessous de ma fenetre, quelqu'un m'a proposé de créer une unité pour gérer mes messages d'informations, d'erreurs, confirmations, ...etc et de mettre son formestyle=fsStayOnTop, donc pb résolu, j'avais d'autre boulot à faire donc j'ai mis ce pb en attente, maintenant il faut que resoud ce pb, ma question et comment créer cette unité avec laquelle je gère le messagedlg, quelqu'un peux m'expliquer en détail les étapes à faire et le code à utiliser svp
merci d'avance les amis

[Yurck]

Bonjour,

En détail ? bah je n'ai pas vraiment le temps.
Alors en gros :
Tu remplaces dans ton appli tout les shomessage par une fonction que tu appeleras par exemple
MessageSimple.

Tu remplaces dans ton appli tout les MessageDlg par une fonction que tu appeleras en fonction des paramètres qui lui sont passées par exemple
- MessageConfirmation (pour TMsgDlgType = mtInformation)
- MessageErreur (...)
- etc...

Dans ta nouvelle unité tu crée les focntions ci dessus et chacune d'elle appelle non pas MessageDlg mais une nouvelle focntion que tu auras écrite :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
unit MessageVisible;

procedure MessageException(S_Message:string; E: EXCEPTION = Nil);
procedure MessageSimple(S_Message :string);

implementation

function MessageDlgPosHelp(const S_Message: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer;
  const HelpFileName: string; Toot: Boolean): Integer;
begin
  with CreateMessageDialog(S_Message, DlgType, Buttons) do
    try
      FormStyle := fsStayOnTop;
      HelpContext := HelpCtx;
      HelpFile := HelpFileName;
      if X >= 0 then Left := X;
      if Y >= 0 then Top := Y;
      if (Y < 0) and (X < 0) then Position := poScreenCenter;
      Result := ShowModal;
    finally
      Free;
    end;
end;

procedure MessageException(S_Message:string; E: EXCEPTION = Nil);
begin
  If Assigned(E) then
  begin
    if (E is EAccessViolation) then
      S_Message := S_Message + ''#13#10'Erreur mémoire.'
    else S_Message := S_Message + ''#13#10 + E.Message;
  end;
  MessageDlgPosHelp(S_Message, mtError, [mbOK], 0, -1, -1, '', true);
//  MessageDlg(S_Message,mtError,[mbOK],0);
end;

procedure MessageSimple(S_Message :string);
begin
  MessageDlgPosHelp(S_Message, mtInformation, [mbOK], 0, -1, -1, '', true);
end;

Tu pourras ainsi à l'avenir envisager d'avoir une fiche message à l'image de ton appli en remplaçant le contenu de MessageDlgPosHelp par un appel à une fiche de tza création.

a+

[iam]

merci in0finiment yurk, ça va me resoudre mon problème, mais j'ai pas trop compris comment l'implémenter, est ce que je crée une forme qui represente mon message? ou je mes le code que tu m'as fournis?
moi je veux pas utiliser MessageDlgPosHelp parceque je ne sais pas comment passer ses paramètres, je veux utliliser MessageDlg simple, je peux, non?
j'aimerai bien que vous puissez me donner plus de détail en me répondant à ces questions, je te remercie infiniment yurk pour ton aide, j'attend une réponse

[iam]

j'ai oublier un petite question :
comment appeler l'unité messagesimple? par son nom? pas de parametre?
et s'il s'agit d'une exception? bon j'ai pas besoin vraiment de mettre des exceptions donc j'enlève la procedure des expetions de cette unité? car mon besoin est seulement d'afficher ces messages d'info et d'erreurs, etc en fsStayOnTop d'une façon de garantir que ces messages là s'affichent en premier plan en dessus de mes forme fsStayOnTop
merci

[iam]

mon pb est resolu avec la méthode que tu m'as proposé yurk, j'ai crée une unité figurant ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
 
unit umessagevisible;
 
interface
uses Dialogs, Forms;
 
function MessageDlgSimple(const S_message:string;DlgType:TMsgDlgType;Buttons:TMsgDlgButtons;HelpCtx:Longint):Word;
implementation
 
function MessageDlgSimple(const S_message:string;DlgType:TMsgDlgType;Buttons:TMsgDlgButtons;HelpCtx:Longint):Word;
begin
  with CreateMessageDialog(S_Message, DlgType, Buttons) do
    try
      FormStyle := fsStayOnTop;
      HelpContext := HelpCtx;
      Result := ShowModal;
    finally
      Free;
    end;
end.
end;

et quand je veux afficher un message à l'utilisateur j'ajoute umessagevisible dans uses de la fiche en question et j'utilise tout simplement :

MessageDlgSimple('Mon_Message', mtInformation, [mbOK],0);

je penserai après d'enrichir cette unité par toute sorte de message et exeption
merci yurk