gérer les fenêtre MDI fille MUTLIPLESRésolu

Question

Bonjour, 
J'ai r&#233;cup&#233;r&#233; sur le site (d'ailleurs bravo &#224; celui qui la fait, c'est g&#233;nial) comment g&#233;rer une fiche mdi fille unique mais le probl&#232;me c'est que je dois g&#233;rer des filles multiples.
Pouvez-vous m'aidez ?
Voici le code : 

function TFormMenu.OpenChild(FormFichesInter: TFormClass): TForm;
var
  i : Integer;
begin
    Result := nil;
    for i := 0 to Application.MainForm.MdiChildCount - 1 do
    begin
      if Application.MainForm.MdiChildren[i].ClassType = FormFichesInter then
      begin
        //On m&#233;morise directement MdiChildren[i] car l'ordre
        //du tableau est chang&#233; ensuite par BringToFront
        Result := Application.MainForm.MdiChildren[i];
        break;
      end;
    end;
    if Result <> nil then
    begin
      //si d&#233;j&#224; cr&#233;&#233; et pas visible alors on remet la fen&#234;tre au 1er plan
      if Result.WindowState = wsMinimized then
         Result.WindowState := wsNormal;
      Result.BringToFront;
    end
    else
      //sinon on cr&#233;e la fen&#234;tre
      Result := FormFichesInter.Create(Application);
end;

D&#233;sol&#233;e j'ai pas pu mettre entre code j'ai des probl&#232;mes avec l'affichage du site.
Merci

sylviecl · Accepted Answer

Bon, j'ai r&#233;ussi &#224; trouver quelquechose qui fonctionne. J'ai bien la fiche d'intervention que j'ai cliqu&#233; dans la liste des interventions qui s'affiche. Par contre je ne peux pas en afficher plusieurs en m&#234;me temps. Etant donn&#233; que je travaille &#224; partir des tables, il ne peut pas apparemment faire appara&#238;tre les donn&#233;es de plusieurs enregistrements en m&#234;me temps. Dommage, si quelqu'un sait comment faire ?
Autrement, si cela int&#233;resse quelqu'un voil&#224; mon code.
Merci pour votre aide, car &#231;a ma permis d'avancer et surtout de voir mon probl&#232;me diff&#233;remment. 
Tchao 

//Cette fonction permet de g&#233;rer les fen&#234;tre MDI fille UNIQUE:
//- si la fiche est d&#233;j&#224; ouverte, elle passe au premier plan
//- si elle &#233;tait minimis&#233;e, elle reprend une taille normale
//- si elle n'existe pas, elle est cr&#233;&#233;e
//- si la fiche existait d&#233;j&#224; mais que ce n'est plus les m&#234;mes donn&#233;es
// elle est mise &#224; jour
function TFormMenu.OpenChild(FormFichesInter: TFormClass): TForm;
var
  i : Integer;
  NumFiche : integer;
begin
    Result := nil;
    NumFiche := DM1.QFicheInter.FieldValues['NUMINTER'];
    for i := 0 to Application.MainForm.MdiChildCount - 1 do
    begin
      if Application.MainForm.MdiChildren[i] is FormFichesInter then
      begin
         DM1.TFicheInter.First;
         while not DM1.TFicheInter.Eof do
         begin
             if NumFiche = DM1.TFicheInter.FieldValues['NUMINTER'] then
             begin
                Result := Application.MainForm.MdiChildren[i];
                break;
            end
            else
                DM1.TFicheInter.Next;  
         end;
      end;
    end;
    if Result <> nil then
    begin
      //si d&#233;j&#224; cr&#233;&#233; et pas visible alors on remet la fen&#234;tre au 1er plan
        if Result.WindowState = wsMinimized then
            Result.WindowState := wsNormal;
        Result.BringToFront;
    end
    else
    begin
      //sinon on cr&#233;e la fen&#234;tre
         DM1.TFicheInter.First;
         while not DM1.TFicheInter.Eof do
         begin
             if NumFiche = DM1.TFicheInter.FieldValues['NUMINTER'] then
             begin
                Result := FormFichesInter.Create(Application);
                break;
            end
            else
                DM1.TFicheInter.Next;
         end;
    end;
    
end;

cs_neko · Answer

J'ai pas tout compris a ta question, pourrait-tu &#234;tre un peu plus pr&#233;cis ?
Tu veux creer des fiches MDI dynamiquement ? Toutes les m&#234;mes ou des differentes ?

PS:
Prefere l'op&#233;rateur is au lieu d'utiliser ClassType
  if Application.MainForm.MdiChildren[i].ClassType = FormFichesInter then
  -> if Application.MainForm.MdiChildren[i] Is FormFichesInter then

bouh

sylviecl · Answer

Bonjour et merci de te penchez sur mon probl&#232;me.
En fait je dois ouvrir plusieurs fiches enfants de m&#234;me nom.
Je m'explique : j'ai une fiche parent menu principal, une fiche enfant liste des interventions et quand je clique sur la liste, je dois pouvoir afficher autant de fiches que je le souhaite. Pour l'instant, avec ce prog, si la fiche est minimis&#233;, il me l'a met en normal, si elle n'est pas cr&#233;&#233;e, il me la cr&#233;e et si elle n'est pas visible elle apparait. Sauf que c'est toujours la m&#234;me fiche qui appara&#238;t et pas celle que j'ai cliqu&#233; une deuxi&#232;me fois. En plus il ne veut m'en ouvrir qu'une.
Si tu peux m'aider ?  Merci

cs_neko · Answer

J'ai compris ( enfin je crois lol )

Bon alors admettons que TFille soit la class type de fenetre MDI fille, de m&#234;me admettons que TPrincipale soit la class de ta form principale
Sur la form principale on met 2 bouttons ( btAjouter qui va ajouter une fille et btEnlever qui va virrer une fille )
On va stocker les fiches Fille dans une list ( qu'on appelle LstChild )

Dans ton unit&#233; de la fille Principale tu te retrouve avec &#231;a:

type
  TPrincipale =   class (TForm)
    btAjouter: TButton;
    btEnlever: TButton;
    procedure btAjouterClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure btEnleverClick(Sender: TObject);
  private
    { D&#233;clarations priv&#233;es }
  public
    { D&#233;clarations publiques }
    LstChild: TList;
  end;


var
  Principale: TPrincipale;


implementation
Uses Unit2;


{$R *.dfm}


procedure TPrincipale.btAjouterClick(Sender: TObject);
begin
  //Ajout d'une fille
  LstChild.Add(TFille.Create(Self));
end;


procedure TPrincipale.FormCreate(Sender: TObject);
begin
  LstChild : = TList.create;
end;


procedure TPrincipale.btEnleverClick(Sender: TObject);
begin
  //Destruction de la premiere fille cr&#233;&#233;e
  If LstChild.Count<>0 Then Begin
    TFille(LstChild.Items[0]).Free;
    LstChild.Delete(0);
  End;
end;


end.

Voil&#224;, avec &#231;a tu peux creer/detruire des filles &#224; la vol&#233;e
J'espere que c'etait ce que tu attendait ^^'
bouh

sylviecl · Answer

J'essaye et je te tiens au courant .
Merci

Gérer les fenêtre MDI fille MUTLIPLES

5 réponses

Votre réponse

Discussions similaires