détecter click hors form ouverte modale

Version imprimable

25/03/2007, 12h18
jlf

détecter click hors form ouverte modale

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
25/03/2007, 13h34
evarisnea

:salut:
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.
25/03/2007, 14h01
jlf

Citation:

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

Citation:

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 ?!
25/03/2007, 14h14
evarisnea

Citation:

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 ?

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

Code:

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;

25/03/2007, 19h41
jlf

Citation:

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

Citation:

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 ...
26/03/2007, 12h48
Gilbert Geyer

Citation:

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

Citation:

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.

Citation:

Envoyé par jlf

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:

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+