Discussion :

[gilles641]

Bonjour,
Comment est il possible de masquer ma forme qui est une bande d affichage lorsque je passe la souris dessus puis de la reafficher lorsque j enleve la souris.
En fait j ai realise une petite barre d infos de la taille de la barre des taches de windows que je place en haut de l ecran.
J aimerai ne pas gener les gens qui travaillent ( du genre ecraser les menus avec ma barre d infos )
Est ce que qq un aurait une idee differente de celle du masquage lors du passage de souris ?
merci d avance

[ced00]

Salut, je ne sais pas si c'est la meilleure méthode mais tu peux faire ça avec un composant timer dont tu fixe l'interval à 100

Code :

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

1
2
3
4
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ((mouse.CursorPos.X > form1.Left) and (mouse.CursorPos.x< form1.Left+form1.Width) and (mouse.CursorPos.y> form1.Top) and (mouse.CursorPos.Y<form1.Top+form1.Height) ) then form1.Hide else form1.Show;
end;

Le seul problème, c'est que tu n'as plus acces à la form, donc pour la fermer c'est embetant...

[gilles641]

Ce n est pas bete du tout ce que tu me dis la..
merci bien

[sjrd]

Je te propose ceci qui est nettement plus élégant (mais je suis pas tout à fait certain que ça va fonctionner ) :
Dans Form1.OnMouseMove :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.FormMouseMove(Sender: TObject; ...; X, Y : integer);
begin
  if Visible then
  begin
    Visible := False;
    CaptureMouse := True;
  end else
  begin
    if PtInRect(Rect(0, 0, Width, Height), Point(X, Y)) then exit;
    Visible := True;
    CaptureMouse := False;
  end;
end;

[ced00]

Ben, oui, mais l'évenement Omousemove ne se déclenche plus une fois que la fenetre a disparue.


J'ai testé ton code par curiosité et je ne vois pas à quoi correspond capturemouse ?

[sjrd]

Ben, oui, mais l'évenement Omousemove ne se déclenche plus une fois que la fenetre a disparue.

C'est ce que je redoutais quand je disais que je n'étais pas certain que cela fonctionnerait

J'ai testé ton code par curiosité et je ne vois pas à quoi correspond capturemouse ?

C'est une propriété de TControl qui, quand elle est à True, intercepte tous les messages souris même s'ils sont en dehors du contrôle. Mais je ne savais pas si cela interceptait les messages même quand le contrôle est invisible... apparemment pas

[ced00]

J'ai testé ton code par curiosité et je ne vois pas à quoi correspond capturemouse ?

C'est une propriété de TControl qui, quand elle est à True, intercepte tous les messages souris même s'ils sont en dehors du contrôle. Mais je ne savais pas si cela interceptait les messages même quand le contrôle est invisible... apparemment pas

On s'est mal compris, quand je teste ton code, j'ai une erreur de compilation avec capturemouse, et l'aide de delphi ne connait pas cette propriété.

Il y a bien un mouse.capture mais ce n'est pas un booléen, on ne peut donc pas lui affecter true ou false

Et quand bien même cette propriété existerait, le fait de "l'encapsuler" dans le onmousemove de la form fait qu'il devrait rester inactif.

D'ou mon recours au timer, même si je reconnais que ce n'est pas tres élégant.

[sjrd]

On s'est mal compris, quand je teste ton code, j'ai une erreur de compilation avec capturemouse, et l'aide de delphi ne connait pas cette propriété.

Mea Culpa (bien qu'en cherchant un peu tu aurais pu trouver mon erreur ) : c'est MouseCapture et non pas CaptureMouse