Discussion :

[altaruk]

Bonjour,

Je n'arrive pas à trouver de solution à mon problème : J'ai créé une application et une aide en ligne (fichier CHM). J'aimerais pouvoir, si j'ai détecté plus d'un écran sur le PC, afficher la fenêtre d'aide sur l'écran où ne s'affiche pas l'application. Genre une fonction SendToScreen(aHandle: THandle: aMonitor: TMonitor) ... mais je ne sais pas trop comment faire.
Merci pour les réponses !

Altaruk

[Andnotor]

Ce code envoie l'aide sur le moniteur où la fiche appelante ne se trouve pas .

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
procedure TForm1.SendToScreen(aHandle :THandle);
var
  SwapMonitor :boolean;
 
begin
  if (Screen.MonitorCount > 1) and (aHandle <> 0) then
  begin
    SwapMonitor := not boolean(Monitor.MonitorNum);
 
    with Screen.Monitors[integer(SwapMonitor)].WorkareaRect do
      MoveWindow(aHandle, Left, Top, Right -Left, Bottom -Top, TRUE);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  SendToScreen(FindWindow('HH Parent', nil));
end;

[altaruk]

Merci, c'est tout à fait ce que j'avais besoin !