pb dans mon code au niveau de la création de composants en dynamique. POuvez-vouRésolu

Question

Pouvez vous me dire ce qui cloche la dedans.
si je met maform.WindowState := wsmaximized;
ca me met une erreur comme quoi le composants existe déja.lorsque je crée la deuxième fenêtre.

Si je met en fenetre bureau normal ca marche

Ce code permet de créer des formes avec un panel à droite, un edit en bas et un webbrowser et de redimenssionner à chaque appuis sur un bouton de la fenetre principale.


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, OleCtrls, SHDocVw_TLB, ComCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    StatusBar1: TStatusBar;
    Panel2: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
maform : Tform;
numfen : integer;
Monpanel:Tpanel;
Monedit:Tedit;
monwebwrowser:Twebbrowser_V1;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
maform := Tform.create(self);
maform.name := 'fenetre' + inttostr(numfen);
maform.FormStyle := fsMDIchild;
maform.visible:= true;
inc(numfen);
maform.WindowState := wsmaximized;
maform.OnResize := formresize;

MonPanel := Tpanel.Create(self);
monpanel.name := 'panel' + maform.name;
MonPanel.Parent := maform;
MonPanel.Align := alright;
Monpanel.Width := 160;

Monedit := Tedit.Create(self);
monedit.name := 'edit' + maform.name;
Monedit.Parent := maform;
Monedit.Align := albottom;
Monedit.height := 20;
monedit.color:= clcream;

monwebwrowser := Twebbrowser_V1.Create(self);
monwebwrowser.name := 'browser' + maform.name;
monwebwrowser.ParentWindow := maform.handle;
monwebwrowser.top := 0;
monwebwrowser.left := 0;
monwebwrowser.width:= maform.Clientwidth - MonPanel.Width;
monwebwrowser.height:= maform.ClientHeight - Monedit.Height;

end;

procedure TForm1.FormResize(Sender: TObject);

begin
maform := tform(sender);
monpanel := Tpanel(FindComponent('panel' + maform.name));
monedit := Tedit(FindComponent('edit' + maform.name));
monwebwrowser := Twebbrowser_V1(FindComponent('browser' + maform.name));
monwebwrowser.width := maform.ClientWidth - monpanel.Width;
monwebwrowser.height := maform.Clientheight - monedit.height;
end;

end.

Cirec · Accepted Answer

Salut,
l'erreur est tout &#224; fait normal puisque tu d&#233;clare MaForm, MonPanel, MonEdit Etc.
et ensuite tu fais 
MaForm :=  TForm.Create(Self); 
....
MonPanel := TPanel.Create(Self)
MonPanel.Name := 'Panel' + MaForm.name; 
Jusque la &#231;a va mais d&#232;s que tu veux cr&#233;e une deuxi&#232;me Form l'erreur se produit puisque
m&#234;me si tu lui change de nom Maform existe quand m&#234;me d&#233;j&#224; donc d&#232;s l'instant ou
MaForm := TForm.Create(Self); est &#224; nouveau appel&#233; l'erreur se produit.

Pour &#233;viter ce genre d'erreur il te faut passer par un tableau genre :

 Var 
MesForm : Array of TForm;
MesPanel : Array of TPanel;

Procedure TForm1.Button1Click(Sender: TObject);
Begin
  SetLength(MesForm, Length(MesForm) + 1);
  MesForm[High(MesForm)] : = TForm.Create(Self);
  With MesForm[High(MesForm)] Do 
  Begin
     Name := 'Fenetre' + IntToStr(High(MesForm));
     Tag := High(MesForm);
     OnResize := FormResize;
     .....
  End;
 .....
End;

Procedure TForm1.FormResize(Sender: TObject);
begin
  If TForm(Sender).Tag > Heigh(MesForm) Then Exit;
  With MesForm[TForm(Sender).Tag ] Do
   Begin
     ....
   End;
End;

Il faudrait aussi penser &#224; lib&#233;rer les composants &#224; la fermeture de la Form m&#234;me si normalement Delphi s'en charge &#231;a fait plus propre. J'&#233;sp&#232;re avoir &#233;t&#233; ass&#233; claire si non n'h&#233;site pas &#224; demander.

@+
Cirec

dominique.stock · Answer

Bonjour,
Question triviale : numfen commence &#224; combien ?

Dom

Cirec · Answer

Oups une petite erreur c'est gliss&#233; dans le code :
Procedure TForm1.FormResize(Sender: TObject);
begin
  If TForm(Sender).Tag > High(MesForm)Then Exit;
  With MesForm[TForm(Sender).Tag ] Do
   Begin
     ....
   End;
End;

@+
Cirec

Bestdoud · Answer

merci ça marche
je croix que j'ai pas fini d'apprendre des trucs.

Bestdoud · Answer

Par contre j'essaye de faire afficher une fenetre en particulier quand je clique sur un bouton

j'utilise la commnde show
ca amrche mais qd je clique ca me met une erreur ca me me impossible de créer la fiche.

Cirec · Answer

il va me faloir plus d'informations si le code n'est pas trop long poste le ici ce sera plus facile pour trouver le probl&#232;me

@+
Cirec

Bestdoud · Answer

Var
MesForm : Array of TForm;
MesPanel : Array of TPanel;
MesEdit : Array of Tedit;
MesBrowser : Array of Twebbrowser_V1;
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.dffdffClick(Sender: TObject);
Begin
  SetLength(MesForm, Length(MesForm) + 1);
  MesForm[High(MesForm)] := TForm.Create(Self);
  With MesForm[High(MesForm)] Do
  Begin
     Name := 'Fenetre' + IntToStr(High(MesForm));
     Tag := High(MesForm);
     formstyle := fsmdichild;
     windowstate := wsmaximized;
     onresize := FormResize;
     visible := true;
  SetLength(MesEdit, Length(MesEdit) + 1);
  MesEdit[High(MesEdit)] := Tedit.Create(Self);
   With MesEdit[High(MesEdit)] Do
  Begin
     Name := 'edit' + IntToStr(High(MesEdit));
     Tag := High(MesEdit);
     Align := albottom;
     Parent := MesForm[High(MesForm)];
  End;
 SetLength(MesBrowser, Length(MesBrowser) + 1);
  MesBrowser[High(MesBrowser)] := Twebbrowser_V1.Create(Self);
   With MesBrowser[High(MesBrowser)] Do
  Begin
     Name := 'Browser' + IntToStr(High(MesBrowser));
     ParentWindow := MesForm[High(MesForm)].Handle;
     Tag := High(MesBrowser);
     top := 0;
     left := 0;
  End;
     SetLength(MesPanel, Length(MesPanel) + 1);
  MesPanel[High(MesPanel)] := Tpanel.Create(Self);
   With MesPanel[High(MesPanel)] Do
  Begin
     Name := 'panel' + IntToStr(High(MesPanel));
     Tag := High(MesPanel);
     Align := alright;
     Parent := MesForm[High(MesForm)];
     bevelouter := bvnone;
  End;
    formresize(MesForm[High(MesForm)]);
  End;
End;

Procedure TForm1.FormResize(Sender: TObject);
begin
  If TForm(Sender).Tag > High(MesForm) Then Exit;
  With MesForm[TForm(Sender).Tag ] Do
   Begin
   With MesBrowser[TForm(Sender).Tag ] Do
   Begin
      width := MesForm[TForm(Sender).Tag].Clientwidth - MesPanel[TForm(Sender).Tag].Width;
     height:= MesForm[TForm(Sender).Tag].ClientHeight - Mesedit[TForm(Sender).Tag].Height;
   End;
   End;
End;

procedure TForm1.Button1Click(Sender: TObject);
//pour afficher la fenetre 2 devant les autres
begin
with MesForm[2] do
begin
  show;
end;

end;

end.

Cirec · Answer

Bon alors part manque de temps je n'ai pas tout control&#233; je suis all&#233; au plus rapide voici ce que &#231;a donne :

Les lignes en vert sont retir&#233;e
Les lignes en rouge sont modifi&#233;e
Les lignes en bleu sont ajout&#233;e

procedure TForm1.dffdffClick(Sender: TObject);
Begin
  SetLength(MesForm, Length(MesForm) + 1);
  MesForm[High(MesForm)] := TForm.Create(Self);
  With MesForm[High(MesForm)] Do
  Begin
     Name := 'Fenetre' + IntToStr(High(MesForm));
     Tag := High(MesForm);
     Parent := Self;     // si tu met cette ligne les fen&#234;tres reseteront &#224; l'int&#233;rieur de Form1  &#224; tester
    // formstyle := fsmdichild;  // fsmdichild pose encore un probl&#232;me je ne sais pas pourquoi
     windowstate := wsNormal; // je l'ai mis &#224; WSNormal pour voir quelque chose
     visible := true;
  SetLength(MesEdit, Length(MesEdit) + 1);
  MesEdit[High(MesEdit)] := Tedit.Create(Self);
   With MesEdit[High(MesEdit)] Do
  Begin
     Name := 'edit' + IntToStr(High(MesEdit));
     Tag := High(MesEdit);
     Align := albottom;
     Parent := MesForm[High(MesForm)];
  End;
SetLength(MesBrowser, Length(MesBrowser) + 1);
  MesBrowser[High(MesBrowser)] := Twebbrowser_V1.Create(Self);
   With MesBrowser[High(MesBrowser)] Do
  Begin
     Name := 'Browser' + IntToStr(High(MesBrowser));
     ParentWindow := MesForm[High(MesForm)].Handle;
     Tag := High(MesBrowser);
     top := 0;
     left := 0;
  End;
     SetLength(MesPanel, Length(MesPanel) + 1);
  MesPanel[High(MesPanel)] := Tpanel.Create(Self);
   With MesPanel[High(MesPanel)] Do
  Begin
     Name := 'panel' + IntToStr(High(MesPanel));
     Tag := High(MesPanel);
     Align := alright;
     Parent := MesForm[High(MesForm)];
     bevelouter := bvnone;
  End;
     onresize := FormResize; // celle ci &#224; &#233;t&#233; d&#233;plac&#233; ici quand tous les composants ont &#233;t&#233;s cr&#233;es
    //formresize(MesForm[High(MesForm)]); // et celle ci je l'ai retir&#233;e puisque la ligne pr&#233;cedente appel d&#233;j&#224; FormResize
  End;
End;


procedure TForm1.Button1Click(Sender: TObject);
//pour afficher la fenetre 2 devant les autres
begin
with MesForm[2] do
  showWindow(handle, SW_SHOWNORMAL); // et la j'utilise ShowWindow ce qui permet de restituer la taille et la position de la fen&#234;tre  m&#234;me si elle est r&#233;duite o&#249; fermer
end;
 
Attention il te faut cr&#233;e 3 Form pour pouvoir utiliser la procedure Button1Click puisque la premi&#232;re fen&#234;tre cr&#233;e porte le N&#176;0 et non 1. Bien sur il faudrai encore &#233;toff&#233; le code il est fonctionnel mais pas achev&#233;.

@+
Cirec

Bestdoud · Answer

j'ai essayé tes modifs et marche moins bien

je te met le lien de mon appli pour que tu voit mieuxce que je veux faire

http://amigagaamp.free.fr/divers/testform2.zip

tout fonctionne: création, redimensionnement, activer fenetre  mais ca plante à la fermeture de l'application

Bestdoud · Answer

showWindow(handle, SW_SHOWNORMAL);  ne faisait aucun effet. alors j'ai mis 3 à la place de SW_SHOWNORMAL. ca met la fenetre devant mais toujours le même pb à la fermeture

Bestdoud · Answer

apparement le pb viendrait dans la création de mon edit et de monpanel

si je met que le browser ca marche.

Bestdoud · Answer

apres des essaies il y a uniqement l'edit qui fait planter

j'ai essayé de le remplacer par un combo ou un labelededit et ca fait pareil.

Cirec · Answer

&#231;a y est j'ai tout bon mais le code est trop long pour &#234;tre post&#233; ici 
si tu me passes ton Mail par Message priv&#233; je te donne la source en retour

@+
Cirec

Pb dans mon code au niveau de la création de composants en dynamique. POuvez-vou

13 réponses

Votre réponse

Discussions similaires