Discussion :

[Invité(e)]

Bonjour,

Je bosse aujourd'hui sur un système composé de deux écrans. Je voudrais simplement qu'une de mes application soit toujours lancée sur le second écran. J'ai regardé du côté de TCustomForm::DefaultMonitor sans y trouver mon bonheur. De même un

Code :

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

this->Monitor = Screen->Monitors[Screen->MonitorCount];

refuse simplement de compiler puisse que Monitor est en lecture seule.

Des idées ?

Merci d'avance.

[Invité(e)]

Trouvé
Dans OnCreate, il suffit de mettre le code suivant :

Code :

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

1
2
3
4
5
6
7
8
   TMonitor * pSecondMonitor = Screen->Monitors[Screen->MonitorCount-1];
 
   this->Top = pSecondMonitor->Top;
   this->Left = pSecondMonitor->Left;
   if(true == b_Fullscreen){
      this->Width = pSecondMonitor->Width;
      this->Height = pSecondMonitor->Height;
   }

[Crayon]

Merci d'avoir mis le code. Ce soir, je l'ajoute à un de mes programmes.

[Crayon]

Salut, pour te remercier, je ne sais pas si sa va t'être utile, mais voici un script qui détecte, sur quelle moniteur ton application est la plus présente:

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
    TMonitor *SelectedMonitor;
    int PixelCount = 0, TempCount = 0;
    TRect ResultRect;
    for(int i = 0; i < Screen->MonitorCount; i++)
    {
        if(IntersectRect(ResultRect, Screen->Monitors[i]->BoundsRect, BoundsRect))
        {
            TempCount = ResultRect.Width() * ResultRect.Height();
            if(TempCount > PixelCount)
            {
                PixelCount = TempCount;
                SelectedMonitor = Screen->Monitors[i];
            }
        }
    }

[Invité(e)]

Pas mal, je le note dans un coin de ma tête

mabu