Discussion :

[potili2]

je commande des applications par l'intermédiaire de Delphi, comment faire pour que mes mesages d'alertes type

Code :

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

showmessage(inttostr(integer(hndltrouve)))

soient affichés à coup sur au premier plan?
merci
JP

[scara]

Hello,
Une piste (?) :
http://www.developpez.net/forums/sho...d.php?t=199566

[Sub0]

Tu peux utiliser la fonction CreateMessageDialog() avec sa méthode ShowModal(). Il existe aussi la propriété sStayOnTop qui permet de garder une fenêtre au 1er plan... Voici un exemple issu de la faq :

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
var i:integer;
     FicheMessage:TForm;
begin
  // on crée la fiche de dialogue à la main 
  FicheMessage:=CreateMessageDialog('Ma boite de dialogue', mtWarning,[mbYes,mbNo,mbIgnore]);
 
  // pour chaque bouton de la fiche ainsi crée on change (si on le souhaite) son modalresult et son caption
  for i := 0 to FicheMessage.ComponentCount - 1 do
  if ( FicheMessage.Components[i] is TButton ) then
  with ( FicheMessage.Components[i] as Tbutton ) do
  begin
    //on change ici selon son humeur, la valeur déjà présente dans Caption, etc..
    //Caption := ... ;
    //ModalResult := ...;
    If Caption=SMsgDlgYes then Caption:='Ouais !';
  end;
 
  //On montre la boite de dialogue
  FicheMessage.ShowModal;
  FicheMessage.Release; //on libère la mémoire occupée par la fiche
end;

[potili2]

me reste plus qu'à dire "merci"
Jean Pierre

[potili2]

après moulte essais, avec
.show
.showmodal
.sStayOnTop
aucun n'est fiable à 100% (tout dépend des traitments en cours par d'autres logiciels.
n'y a t il pas une façon d'obtenir le premier plan à coup sûr?
pour l'instant, je suis obligé de jouer avec la Form et son Handle, mais c'est ssez lourd.
Jean Pierre

[Jipété]

Salut !
Un jour j'ai trouvé ça, qui a l'air de fonctionner :

To make a form always visible above other forms either belonging to the
same application as well as other applications, we can change the
FormStyle property to fsStayOnTop. Later we can switch back to
normal by setting FormStyle to fsNormal. However, changing the FormStyle
property at runtime isn't recommended. Instead, we should use the
Windows API function SetWindowPos, passing it HWND_TOPMOST as the second
parameter to activate the effect:

procedure TForm1.Button1Click(Sender: TObject);
begin
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0,
SWP_NOMOVE + SWP_NOSIZE);
end;

To deactivate this effect, we call SetWindowPos again, this time passing
it WND_NOTOPMOST as the second parameter:

procedure TForm1.Button2Click(Sender: TObject);
begin
SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0,
SWP_NOMOVE + SWP_NOSIZE);
end;

À voir,
--
jp

[potili2]

avec ça, c'est bon.
merci!
Jean Pierre

[David]

salut,

perso j'utililse ceci :

Code :

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

windows.MessageBox (GetForegroundWindow,PChar(monmessage),PChar('titre'),0);

Ca marche pas mal.