Création dynamique de forms & multi-écran

Version imprimable

Je cherche à crée dynamiquement des formulaires en fonction du nombre d'écrans présents sur ma machine, et lorsqu'ils sont crées les placer chacun dans l'écran qui leur correspond.

Je rencontre un problème lors de l'execution de la fonction 'Show' qui me redéplace tout mes formulaires sur mon écran n°1.

(Show me permet d'afficher le contenu et de redimenssioner mon formulaire à la bonne taille)

Voilà mon code pour la création dynamique des formulaires (contenu dans le formulaire principal) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 procedure TForm1.FormCreate(Sender: TObject); var loop : integer; begin Form1.BorderStyle:=bsnone; Displays := TDisplays.Create; // on crée l'objet qui va contenir la liste des moniteurs EnumDisplayMonitors(0,Nil,@EnumProc,Nil); setlength(t_form,Displays.Count); For loop := 0 to (Displays.count - 1) do begin t_form[loop] := TForm.Create(self); with t_form[loop] do begin Align := alClient; Caption := 'Suivi étuve n°' + inttostr(loop+1); end;//with t_frame[loop] := TFrame2.Create(t_form[loop]); t_form[loop].Show; SetWindowPos(t_form[loop].Handle, 0, Displays.Item[loop].Monitor.Left, Displays.Item[loop].Monitor.Top, 0, 0, SWP_NOSIZE or SWP_SHOWWINDOW); end;//for end;//procedure
et la librairie que j'utilise ici : unit_gestion_ecran.pas

05/05/2006, 10h15
ALWEBER

Pourquoi ne pas ajouter des fenêtres enfants dans une application mdi (multiple document interface) ?
05/05/2006, 10h35
ArkSquall

A vrai dire, je ne sais pas de quoi tu parles. :roll:

(je me renseigne...)
05/05/2006, 10h44
ArkSquall

Citation:

Une application MDI (Multiple Document Interface) est constitué d'une fenêtre principale appelé le parent et des fenêtres enfants. Cette interface permet à la fenêtre principale de contenir des fenêtre enfant

Le truc c'est que je ne souhaite pas que les formulaires que je génère soient contenus dans le fomulaire principal.
Mon formulaire principal n'a pas lieu d'être pour autre chose que la génération de mes formulaires dynamiques, ca ne poserait pas problême?
05/05/2006, 10h51
ALWEBER

Je t'ai mis un exemple téléchargeable à l'adresse suivante :
http://www.aw-informatique.fr/echange/fact.zip
05/05/2006, 10h55
ArkSquall

En fait le MDI ne résoudra pas mon problème étant donné que je suis obligé de garder les formulaires ainsi générés à l'intérieur du formulaire d'origine. Je souhaite vraiment que les formulaires générés soient, après création, indépendants et notamment du formulaire principal.
05/05/2006, 11h01
ALWEBER

Est ce que ces fiches doivent communiquer ensemble ou ce sont autant d'applications indépendantes ?
05/05/2006, 13h45
ArkSquall

elles ne communiquent pas entre elles et ne sont pas liées c'est juste qu'elles contiennent des données similaires.

Tu peux traiter l'information de la manière suivante.

Code:

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
 
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
var
  Form1: TForm1;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
  I1   : integer;
  Formx : TForm2 ;
begin
  Form1.BorderStyle:=bsnone;
  For i1 := 0 to 4 do
  begin
    Application.CreateForm(TForm2, Formx);
    Formx.Caption := 'Suivi étuve n°' + inttostr(I1+1);
    Formx.Visible := true ;
    SetWindowPos(formx.Handle, 0, i1*10,i1*10,
      0, 0, SWP_NOSIZE or SWP_SHOWWINDOW);
  end;
end;
end.

L'application contient une deuxième fiche Form2
Le programme principal doit avoir le contenu suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
program Project1;
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Tu mets ce que tu veux sur ta fiche Form2. Tous les objets de chaque fiche form2 sont accessibles par formx après création. Tu n'as pas besoin de tableau de form

05/05/2006, 14h56
anapurna

salut

ou est renseigné la position des different moniteur ?
on peut voir EnumDisplayMonitors et EnumProc ?
les formes sont elle en poDesigned ?

@+ Phil

Code:

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
  // Type utilisé par la fonction GetMonitorInfo pour
// retourner les informations sur le moniteur voulu
Type
  PMonitorInfoEx=^TMonitorInfoEx;
  TMonitorInfoEx=Record
    cbSize    : DWord;
    rcMonitor : TRect;
    rcWork    : TRect;
    dwFlags   : DWord;
    szDevice  : Array[0..CCHDEVICENAME-1]Of Char;
  End;//record
 
// Fonction donnant des informations sur un moniteurs
Function GetMonitorInfo(Montiteur:THandle;LpInfo:PMonitorInfoEx)
     :Bool;StdCall; external User32 name 'GetMonitorInfoA';
// Fonction d'énumération des moniteurs présents
Function EnumDisplayMonitors(DC:HDC;LpRect:PRect;CallBack:TFarProc;Param:Pointer)
     :Bool;StdCall; external user32 name 'EnumDisplayMonitors';
// Procédure appelée par l'énumérateur des moniteurs
Function EnumProc(Moniteur:THandle;DC:HDC;Rect:PRect;Param:Pointer):Bool;StdCall
Var
  Infos   : TMonitorInfoEx;
  Display : TDisplay;
Begin
    // Pour chaque moniteurs rencontré, on en recherche le nom
  Infos.cbSize:=SizeOf(Infos);
  If GetMonitorInfo(Moniteur,@Infos)Then
  begin
    Display := TDisplay.Create('Device',Infos.szDevice, Infos.rcMonitor, Infos.rcWork ); // création du moniteur
    Displays.Add(Display); // on l'ajoute dans la liste
  end;//if
End;//function

voilou Mr ;)

salut

Un premiere chose donne un nom different a chaque display que tu creer
[FONT=monospace]
[/FONT]
Code:

1 2 3 4 5 // création du moniteur Display := TDisplay.Create('Device',Infos.szDevice, Infos.rcMonitor, Infos.rcWork ); Display.name := 'Display'+InttoStr(Displays.Count+1) // on l'ajoute dans la liste Displays.Add(Display);
ca va te permettre de verifier que c'est bien le bon Display
que tu utilise

dans ta premiere methode que tu as fournit
remplace

Code:

SetWindowPos(t_form[loop].Handle, 0, Displays.Item[loop].Monitor.Left, Displays.Item[loop].Monitor.Top, 0, 0, SWP_NOSIZE or SWP_SHOWWINDOW);

par
Code:

1 2 3 4 5 6 7 Var adisplay: TDisplay; ... adisplay := Displays.Item[loop] //tu peut mettre un point d'arret afin de verifier les infos SetWindowPos(t_form[loop].Handle, 0, adisplay.Monitor.Left, adisplay.Monitor.Top, 0, 0, SWP_NOSIZE or SWP_SHOWWINDOW);
@+ Phil

05/05/2006, 17h04
edam

Citation:

Envoyé par ArkSquall

elles ne communiquent pas entre elles et ne sont pas liées c'est juste qu'elles contiennent des données similaires.

alors pourqoi pas crée chaque faeille dans un prog a part, et les executes à partir de votre form principal :?
05/05/2006, 17h31
anapurna

salut

A priorie il faut qu'il regarde le SDI et nom pas le MDI
un peut comme le fait delphi

@+ Phil

[Résolu]

J'ai résolu mon problème :

En fait cela venait du BorderStyle du form. Si je le mettais à none avant d'exécuter le Show il me replaçait le formulaire généré dans l'écran principal.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
    t_form[loop] := TForm3.Create(self);
    t_frame[loop] := TFrame2.Create(t_form[loop]);
    with t_frame[loop] do
    begin
      Align := alClient;
      Parent := t_form[loop];
    end;//with
    with t_form[loop] do
    begin
      Align       := alNone;
      FormStyle   := fsStayOnTop;
      WindowState := wsMaximized;
      Caption := 'Suivi étuve n°' + inttostr(loop+1);
    end;//with
    SetWindowPos(t_form[loop].Handle, 0, Displays.Item[loop].Monitor.Left,
      Displays.Item[loop].Monitor.Top,
      0, 0, SWP_NOSIZE or SWP_SHOWWINDOW);
    t_form[loop].Show;
    t_form[loop].BorderStyle := bsNone;
    Form1.BorderStyle:=bsnone;