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, ça persiste toujours, qulelqu'un m'a informé qu'il s'agit d'un bug de windows xp sp2, il faut donc faire les mise à jours, mais ce que je souhaite et de svoir de quel patch s'agit-il exactement pour faire la MAJ nécessaire, car sur les postes clients ils ont pas une connexion internet pour monter tout les maj, je doit donc isoler le patch qui peut résoudre ce pb exactement, y a quelqu'un qui a rencontré ce pb et pouvant m'aider, merci

[Yurck]

Ecoutes moi j'ai des clients qui sont en XP sp2 et il ne se plaigne pas (encore).
Alors voilà comment je procède : j'ai créer une unité pour gérer les messages du type information , erreur, erreur base de donnée, confirmation etc...
Quoi qu'il en soit dans cette unité chacune de mes procédures finie par utiliser
MessageDlgPosHelp.

Depuis plus de pb et même en TSE.

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
 
function MessageDlgPosHelp(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer;
  const HelpFileName: string; Toot: Boolean): Integer;
begin
  with CreateMessageDialog(Msg, 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 Informe(Information :string);
begin
  MessageDlgPosHelp(Information, mtInformation, [mbOK], 0, -1, -1, '', true);
end;

A suivre...

[iam]

oui c'est une excellente methode, je suis un peu débutant en delphi donc j'ai pas bien compris par unité, est ce que je crée une fonction de messagedlg et je l'appelle à chaque fois et ou je la met cette fonction, moi je n'ai pas utilisé MessageDlgPosHelp, j'ai utilisé messageDlg, c'est pareil?
merci monsieur

[Graffito]

Bonjour,

On a eu le même problème avec une appli Windows/Linux qui se produisait sur certaines distri Linux. Pour résoudre le problème, on a adopté une solution du type de celle indiquée par Yurk (définir une fonction émulant les appels MessageDlg et show message, qui créent une form stay on top avec des bitBtn avec leur propriété kind à Yes, No, OK, Cancel et qui teste le résultat du showmodal)