UTILITAIRE MDI & ROUTINES MDI DE BASE

Commentaire de Nono40 le 21/12/2002 20:11:48

Pour créer une fenêtre enfant, ce n'est pas application.CreateForm qu'il faut appeler mais :
procedure TForm_Main.Menu_Mdi_NewClick(Sender: TObject);
Var Form:TForm1;
begin
  if Mdichildcount <= 4 then Form:=TForm1.Create(Application);
  if Mdichildcount >  4 then Menu_Mdi_New.Enabled := False;
end;
Ainsi tu peux supprimer les déclaration de Form2,Form3 et Form4 situées dans Form1. Car ceci t'a obligé à limiter le nombre de fenêtre enfants alors que ce n'est pas utile.

Pour récupérer l'icone de la fenêtre enfant, voici la nouvelle procédure Tache() :
procedure TForm_Tache.Tache();
var SpeedBouton:TSpeedButton;
    Cpt:Integer;
    Bmp1,Bmp2:TBitMap;
begin
     if Form_Main.MDIChildCount > 0 then
     for Cpt := Form_Main.MDIChildCount-1 downto 0 do
     begin
          SpeedBouton := TSpeedButton.Create(self);
          SpeedBouton.Parent := Form_Tache;
          SpeedBouton.Name := 'SP_Tache' + IntToStr(Cpt);
          SpeedBouton.Height := SP_Height;
          SpeedBouton.Width := SP_Width;
          SpeedBouton.Top := (Cpt - MDIChildCount) * (SP_Height + EcartH);
          SpeedBouton.Visible := True;
          SpeedBouton.Caption := Form_Main.MDIChildren[Cpt].Caption;
          SpeedBouton.Tag := Cpt;
          SpeedBouton.Font.Size := 8;
          SpeedBouton.OnClick := Form_Tache.OnClick;

          //Associer une image au bouton
          Bmp1:=TBitMap.Create;
          Bmp2:=TBitMap.Create;
          Try
            bmp1.Width :=32;
            bmp1.Height:=32;
            bmp1.Canvas.Brush.Color:=clbtnface;
            bmp1.Canvas.FillRect(Bmp1.Canvas.ClipRect);
            bmp1.Canvas.StretchDraw(Bmp1.Canvas.ClipRect,Form_Main.MDIChildren[Cpt].Icon)
            bmp2.Width :=20;
            bmp2.Height:=20;
            bmp2.Canvas.StretchDraw(Bmp2.Canvas.ClipRect,Bmp1);
            SpeedBouton.Glyph.Assign(bmp2);
          Finally
            Bmp1.Free;
            Bmp2.Free;
          End;
     end;
end;

Pour le tester j'ai ajouté une icone ménuellement dans le OnCreate de TForm1 : Icon.LoadFromFile('MonIcone.Ico'). Mais le mieux serai d'ajouter un fichier .RES avec les icones.

Bonne continuation,

Nono.