Discussion :

[jlf]

bonjour

je voudrais simuler le comportement d'un popup avec une form ouverte en modal (via ShowModal)

il faudrait en particulier que je puisse détecter, depuis la form ouverte en modal, si l'user a cliqué en dehors de celle ci

comme la form est en modal je suppose que tous les messages (par ex en click sur une autre form, voire une autre appli) lui sont à un moment ou un autre redirigés, mais je trouve pas comment le récupérer

merci de votre aide

[evarisnea]

moi je n'afficherais pas la fenêtre en showmodal.
j'utiliserais plutôt une form sans bordure, et en stayOnTop. tu as des évènement pour détecter lorsque la form perd le focus (dsl je ne m'en souviens pas pour le moment et j'ai pas l'ide devant moi) et avec le composant TApplicationEvents, tu peux détecter lorsque l'application perd le focus.
avec ca tu devrais pouvoir avancer.

[jlf]

moi je n'afficherais pas la fenêtre en showmodal

dans ce cas j'ai absolument besoin du modal, l'useur ne doit pas pouvoir faire autre chose avant d'avoir fermé la fiche

TApplicationEvents

j'avais essayé d'en poser un sur ma form, curieusement il ne reçoit aucun message souris lorsqu'on clique alleurs que sur la form en modal ?!

[evarisnea]

il faudrait en particulier que je puisse détecter, depuis la form ouverte en modal, si l'user a cliqué en dehors de celle ci

est vraiment possible pour une fenêtre en Modal ? je me le demande.
pourrais tu préciser d'avantage ce que tu souhaites obtenir ?

[Gilbert Geyer]

Variante pour capturer des événements "souris" en-dehors d'une fiche :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 
type oSouris = Object bG,bD : integer;
                      p     : tPoint;
                      H     : HWnd;       end;
 
  var souris   : oSouris;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin     souris.H:=GetCapture;
          souris.bG:=getAsyncKeyState(VK_LButton);
          souris.bD:=getAsyncKeyState(VK_RButton);
          getCursorPos(souris.p); { y = souris.p.y.x = souris.p.x }
end;

[jlf]

est vraiment possible pour une fenêtre en Modal ? je me le demande.
pourrais tu préciser d'avantage ce que tu souhaites obtenir ?

simplement fermer la fenêtre modale lorsque l'user clique ailleurs

Variante pour capturer des événements "souris" en-dehors d'une fiche :
souris.bG:=getAsyncKeyState(VK_LButton);

merci je ne connaissais pas cette fonction

ça pourrait faire l'affaire mais l'obligation d'interroger régulièrement via un timer m'ennuie un peu
je me demande bien comment sont dispatchés les messages hors fiche modale ...

[Gilbert Geyer]

simplement fermer la fenêtre modale lorsque l'user clique ailleurs

souris.bG:=getAsyncKeyState(VK_LButton); ... ça pourrait faire l'affaire mais l'obligation d'interroger régulièrement via un timer m'ennuie un peu

Bof! Avec par exemple un Timer1.intervalle:=250 qui est un intervalle ni trop serré ni trop large ceci ne devrait pas ralentir l'application.

[Yurck]

dans ce cas j'ai absolument besoin du modal, l'useur ne doit pas pouvoir faire autre chose avant d'avoir fermé la fiche

Tu peux simuler le comportement modal avec une boucle et un boolean pour l'affichage et un pour le résultat.

il existe déjà des topics qui en parle. L'idéee est d'avoir une fiche en stayontop avec une propriété boolean pour gérer son ouverture.

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
 
  MaFenetrePasModaleMaisQuiFaitMineDeLEtre := 
    TMaFenetrePasModaleMaisQuiFaitMineDeLEtre.create(nil);
  try
    MaFenetrePasModaleMaisQuiFaitMineDeLEtre.Affichage := true;
     // en attente de fermeture (simulation du principe modal)
    while MaFenetrePasModaleMaisQuiFaitMineDeLEtre.Affichage do
      application.processMessages;
 
    if MaFenetrePasModaleMaisQuiFaitMineDeLEtre.Resultat then
        ... 
    else
        ...
  finally
    MaFenetrePasModaleMaisQuiFaitMineDeLEtre.Free;
  end;

Evidement cela implique aussi de gérer les évenement hors "MaFenetrePasModaleMaisQuiFaitMineDeLEtre".

C'est vous qui voyez !

a+