Discussion :

[Mailgifson]

Salut à tous,

J'aimerais définir une contrainte pour les déplacement des fenêtres.

Je m'explique ... quand l'utilisateur deplace une fenetre, je voudrais lui interdire dans certaine zone de l'écran.

Est-ce possible ?

Et pendant qu'on y est, comment savoir la résolution de l'ecran ?

Merci
Mailgifson

[Gilles Louïse]

Pour les contraintes de Top et Left de Form1, j'avoue ne pas savoir car on n'a pas d'événements sur le fait que la fenêtre se déplace ou non, ça doit être possible mais je ne sais pas comment (mes quelques essais à titre indicatif ont échoué). Avis aux autres spécialistes, la réponse m'intéresse aussi.

Pour la définition de l'écran, il s'agit de Screen->Width et Screen->Height.

À bientôt
Gilles

[DamessS]

Bonjour,
D apres moi cela est parfaitement possible.J ai realiser un petit bout de code pour effectuer le deplacement d une fenetre avec un effet d attirance vers le bord de l ecran.
Mais j avais pour se faire enveler la barre de titre traditionnelle.
Comme ca je ne peux t aider. Si tu pouvais detailler le typ de zone a evité(rectangulaire , triangulaire ,etc ) et leur nombre cela m aiderai.

[Mailgifson]

La zone a évité peut être divisé en deux rectangle.
Un premier en haut de l'ecran et le second a gauche de l'ecran.

[DamessS]

Bonjour ,

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
//---------------------------------------------------------------------------
int DX,DY,iDepl=0;
 
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    DX = X ;
    DY = Y ;
    iDepl = 1 ;
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
    if (iDepl)
    {
 
        int iMargGauche =100;
        int iMargHaut =100;
 
 
        int iColler = 15;
 
        if((Left-DX+X)<(iColler+iMargGauche))
            Left =iMargGauche ;
        else
        {
            if((Left-DX+X+ClientWidth)<(Screen->Width+iColler)&&(Left-DX+X+ClientWidth)>(Screen->Width-iColler))
                Left=(Screen->Width-ClientWidth );
            else
                Left=Left-DX+X;
        }
        if((Top -DY+Y)<(iColler+iMargHaut))
            Top =iMargHaut;
        else
        {
            if((Top-DY+Y+ ClientHeight)<(Screen->Height+iColler)&&(Top-DY+Y+ClientHeight)>(Screen->Height-iColler))
                Top=(Screen->Height-ClientHeight);
            else
                Top=Top-DY+Y;
        }
    }
 
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    iDepl = 0 ;    
}
//---------------------------------------------------------------------------

[Gilles Louïse]

C'est intéressant mais je crois que ce n'est pas ce qui est demandé, il s'agit de déplacer une forme c'est-à-dire si je comprends bien l'application principale (ou en tout cas une fenêtre et non une image). Dans le cas d'une fenêtre, on ne dispose pas des événements que vous utilisez dans votre code car l'utilisateur clique sur la bordure de la fenêtre pour la déplacer et non pas au milieu de celle-ci (chose qui pourrait se concevoir sur une image dans votre exemple).

Veuillez m'excuser car ce n'est pas moi qui pose ce problème mais la réponse m'intéresse aussi.

Merci de toute façon de vos efforts.
Gilles

[DamessS]

Avez vous testé ce code?
Si vous voyez une Image bouger.Moi je nen vois pas.

J avoue ne pas saisir ce qui pose probleme.

La fenetre ne poura ce trouver plus haut que 100 pixels et a moins de 100 pixels du bord gauche.
j ai affecter cé evenement a une image de la forme .. mais on peut les attribuer au evenement de la form elle meme.et supprimer la barre de titre.

Jai admis que le rectangloe superieure s étire sur toute la largeur de l ecran et le rectangle de gauche s étir sur toute la hauteur ..

Si je nai pas repondu a la requete pardons.Mais alors je nai pas compris ce qui a été demandé

[Mailgifson]

C'est une bonne idée, mais malheureusement j'ai besoin de ma barre de titre ! Et l'evenement MouseDown, ne fonctionne pas sur la barre de titre

[DamessS]

Je pense que reprogrammer les quelques caracteristique dune barre de titre ne dois pas poser trop de probleme ?

[Gilles Louïse]

Avez vous testé ce code?

Non, je ne l'ai pas testé car je crois, ainsi que je l'ai dit, que cela ne correspond pas au problème posé. Je vois que vous utilisez les événements MouseMove et MouseUp, ceci implique que l'on clique à l'intérieur de la fenêtre. Je prends volontiers pour hypothèse que ça marcherait très bien ainsi puisque vous le dites mais je dis simplement que ce n'est pas ainsi qu'un utilisateur déplace une fenêtre. En effet, pour déplacer une fenêtre, on ne clique pas à l'intérieur de la fenêtre mais on clique logiquement la bordure haute de la fenêtre puis on la déplace avec la souris, en conséquence de quoi les événements que vous invoquez sont inopérants.

Je comprends que vous voulez dire que ça marche, je le crois volontiers mais je crois également que la question est de savoir comment empêcher que la fenêtre aille dans une zone interdite (les valeurs choisies dans votre exemple sont excellentes) en la déplaçant de façon standard c'est-à-dire en cliquant sur le rebord haut de la fenêtre (en non à l'intérieur de celle-ci).

Merci de vos efforts et à bientôt
Gilles

[CGi]

La solution est probablement de traiter le message WM_MOVING

[Didier Derain]

c'est effectivement ce qu'il faut fair:

dans le unit.h ajouter

Code :

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

1
2
3
4
5
6
7
    void __fastcall Deplace_form(TMessage &Msg);
public:		// Déclarations de l'utilisateur
    __fastcall TForm1(TComponent* Owner);
 
BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(WM_MOVING, TMessage, Deplace_form);
END_MESSAGE_MAP(TForm)

et dans unit.ccp on utilise alors

Code :

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

1
2
3
4
void __fastcall TForm1::Deplace_form(TMessage &Msg)
{
    Memo1->Lines->Add("deplace");
}

il ne restera plus dans cette fonctio de recuperer top left .... pour les traiter comme il faut

[globytrotty]

Même si Damess a proposé quelques chose à côté du sujet, en tout cas, c'est exactement ce que je cherchais... comme quoi, une mauvaise compréhension sert toujours !!