Discussion :

[NGeVtC87]

Bonjour,

Je développe sous Delphi. J'ai une application et deux écrans de connecter que je voudrais lancer au au moins afficher la Tform principal de cette application sur le deuxième écran.

J'ai essayé en initialisant les positions d'origine de la forme aux positions du second écran comme suit:

Code :

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

1
2
3
4
5
6
7
 
Application.CreateForm(TMainForm, MainForm);
if Screen.MonitorCount > 1 then
    begin
    MainForm.Top:= Screen.Monitors[1].BoundsRect.Top;
    MainForm.Left:= Screen.Monitors[1].BoundsRect.Left;
end;

cependant la forme s'affiche toujours sur le premier écran.
Auriez vous s'il vous plait une solution à me suggérer pour ce problème

Merci

[SergioMaster]

Bonjour,

je pense que ce code qui semble se trouver dans le source du projet aurait plus sa place dans le OnCreate de la forme.
La fonction MakeFullyVisible pourrait aussi être envisagée s'il s'agit de VCL

[edit] il faut peut-être aussi vérifier que la propriété position de la forme à la création ne soit pas incompatible (en exemple : poCenter)

Néanmoins je n'ai pas encore testé et donc ne peut étayer mes hypothèses faute de second écran installé

[Lung]

Moi j'utilisais ça (dans une application FMX):

Code :

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

1
2
3
4
5
6
var
  EcranRect: TRect;
begin
 
  EcranRect := Screen.Displays[nIndexEcran].WorkareaRect;
  Left := (EcranRect.Left);      Top := (EcranRect.Top);

[sergio_is_back]

Bonjour,

Je développe sous Delphi. J'ai une application et deux écrans de connecter que je voudrais lancer au au moins afficher la Tform principal de cette application sur le deuxième écran.

J'ai essayé en initialisant les positions d'origine de la forme aux positions du second écran comme suit:

Code :

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

1
2
3
4
5
6
7
 
Application.CreateForm(TMainForm, MainForm);
if Screen.MonitorCount > 1 then
    begin
    MainForm.Top:= Screen.Monitors[1].BoundsRect.Top;
    MainForm.Left:= Screen.Monitors[1].BoundsRect.Left;
end;

cependant la forme s'affiche toujours sur le premier écran.
Auriez vous s'il vous plait une solution à me suggérer pour ce problème

Merci

Avec la VCL :
Que ce soit sur le premier ou le deuxième moniteur, c'est lors de l'affichage de la forme qu'il faut modifier les attributs de celle (left, top, windowstate, etc...)
Dans l'évenement OnShow de la TForm

MakeFullyVisible empêchera la fenêtre de s'afficher hors des limites du premier moniteur si le second n'est pas branché par exemple
C'est aussi une bonne idée de le passer à True dans le OnCreate

[ShaiLeTroll]

Dans une application de Moniteur vidéo j'avais un peu la chose, gérer les écrans selon préférence utilisée
Par moyen de trouver le code, mais j'ai aussi utilisé MakeFullyVisible et MonitorFromPoint
c'était je crois l'inverse, selon le nom de poste et le numéro d'écran, cela chargeait des fenêtres configurés différement
Par exemple à trois écran, le centrale étant le plein écran rotatif et les deux écrans latéraux c'était les vues d'ensemble de 16 à 64 caméras (après ça ramait trop la décompression H264)