Comment diminuer le nombre d'unités dans le projet ?

Bonjour,
Maintenant que c'est très rigolo de developper en delphi, ce pose un probleme (enfin pour moi !). Suite à plusieurs discussions sur quelques forums, il apparaît que mon appli est meilleure si developpée avec des Tframes. Bon ... OK ... Mais j'ai un menu avec 5 onglets. Chacun ouvre un cadre où se trouve plusieurs Frames. Bon... OK... maintenant il y a forcement plein de frames et plein de cadres qui creent necessairement autant de .pas ! alors la question c'est que pour faire plus propre, je souhaiterais avoir juste 5 .pas où l'on trouverais les autres cadres dans lesquels on trouverait les composants visuels.
J'ai regardé là : http://www.developpez.net/forums/sho...highlight=unit mais la solution proposée est totalement obscure pour moi...
y a forcement un truc que j'ai pas compris ! Ou pire, une methode de travaille Delphi que je n'ai pas compris !!!
Merci...

Bonjour

Une Fiche ==> 1 TForm ==> 1Fichier .Pas ==> 1 fichier Dfm

Si tu veux avoir plusieurs TForm dans le meme fihcier .pas
tu vas devoir avoir 1 seul fichier Dfm pour "la principale fiche" par exemple, mais pour les autres fiches, tu devras "TOUT faire a la main", et en "aveugle".
donc de "tete".
Tu pourras pas deposer un TLabel sur la 2eme fiche. Mais il te faudra le creer
dynamiquement, en fixant toi meme sa position, et les caracteristique de la bete.
Ta X ieme fiche aussi, tu l'aras toit meme creer dynamiquement,
apres avoir precisé les composants qu'elle contiendra, tout comme les evenements qui seront gérés.
Un ptite fiche qui fait un truc leger, c'est jouable, au dela c'est vite galere.

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
 
Type
  TFiche = Class(TForm)
    LblTmp,LblKrn:TLabel;
    Timer:TTimer;
    Pnl:TPanel;
    LblMsg:TLabel;
    Procedure TimerOn(Sender:TObject);
   Public
    T,K,D:Word;
    Rep:Boolean;
    Constructor Create(AOwner:TComponent);Override;
  End;
 
Constructor TFiche.Create(AOwner:TComponent);
Begin
  Inherited CreateNew(AOwner);
 
  //Creation des autres composants
  LblTmp := TLabel.Create(Self);
  LblKrn := TLabel.Create(Self);
  Rep := False;//Rep=Réponse par défaut
  Pnl := TPanel.Create(Self);
  LblMsg := TLabel.Create(Self);
  Timer := TTimer.Create(Self);
  Timer.Enabled := False;
  Timer.Interval := 1000;
  Timer.OnTimer := TimerOn;// ====> affectation de l'evenement OnTimer
End;
 
Procedure TFiche.TimerOn(Sender:TObject);
Begin
  Code ICI
End;
 
Function MessageTmp(Titre,Txt:String;TypIco:PChar;Tmp:Word;Rep:Boolean):Boolean;
Fiche:TFiche;
Begin
  Fiche := TFiche.Create(Application);
  With Fiche Do
  Try //Parametrage de la fiche elle meme
    Canvas.Font := Font;
    LrgHtr := GetAveCharSize(Canvas);
    BorderStyle := BsDialog;
    Position := PoScreenCenter;
    If Titre = '' Then Titre := 'Message';
    MnsclP(Titre);Titre[1] := UpCase(Titre[1]);
    Caption := Titre;
    ClientWidth := Lrg;
    ClientHeight := Htr;
 
    With Pnl Do
    Begin //Panel ==> Parametrage à la main
      Parent := Fiche;
      Caption := '';
      ParentColor := True;
      ParentFont := True;
      Top := TopM;
      Left := 5;
      Width := LblMsgLrgMin*3;
      Height := LblMsgHtrMax*3;
    End;
 
    With LblMsg Do 
    Begin//Un TLabel
      Parent := Pnl;
      ParentColor := True;
      ParentFont := True;
      Align := AlClient;
      Alignment := TaCenter;
      //WordWrap := True;
      Caption := Txt;
    End;
 
    RctI.Top := TopI;
    RctI.Bottom := TopI+HtrI;
    RctI.Left := (ClientWidth Div 2)-(LrgI Div 2);
    RctI.Right := RctI.Left+LrgI;
    Image := TImage.Create(Fiche);
    with Image do
    begin
      Parent := Fiche;
      Picture.Icon.Handle := LoadIcon(0,TypIco);
      BoundsRect := RctI;
    end;
 
    If Titre = 'Confirmation'
    Then I := 2
    Else I := 1;
 
    Bt1 := TButton.Create(Fiche);
    With Bt1 Do //Creation et parametrage d'un TBouton
    Begin
      Parent := Fiche;
      ModalResult := MrOk;
      Default := True;
      TopBt := Pnl.Top+Pnl.Height+8;
      Top := TopBt;
      If I = 1
      Then Begin
        Caption := '&Ok !';
        Left := Left1B;
        Left := (Fiche.ClientWidth Div 2)-(Width Div 2);
      End
      Else Begin
        Caption := '&Oui';
        Left := Left2B1;
        Left := (Fiche.ClientWidth Div 2)-((Width*2+10) Div 2);
        ModalResult := MrYes;
        Bt2 := TButton.Create(Fiche);
        With Bt2 Do
        Begin
          Parent := Fiche;
          Caption := '&Non';
          Top := TopBt;
          Left := Left2B2;
          Left := Bt1.Left+Bt1.Width+10;
          Cancel := True;//Actif si Escape presser
          ModalResult := MrNo;
        End;
      End;
    End;
    If I = 1 Then Fiche.ActiveControl := Bt1;
    Fiche.Rep := R;
 
    MessageBeep(mb_IconQuestion);
    Timer.Enabled := True;
 
    ShowModal;//==>Presentation de la fiche
 
    Timer.Enabled := False;
    If Bt2 = Nil
    Then Result := True
    Else Begin
      If ModalResult = MrNone
      Then Result := Rep
      Else Result := ModalResult = MrYes;
    End;
  Finally
    Fiche.Free;
  End;
End;

Si tu as besoin de plusieurs fiches, utilise l'editeur, il te facilitera franchement la tache, je connais des projet avec des tas(mais vraiment des TAS) de .Pas avec leur .Dfm associés, et ca se passe tres tres bien.

Ca evite aussi d'avoir un fichier de 60'000 lignes ou plus !

1.Dfm==>1.Pas ==> 1 TForm(avec eventuelement un autre TForm gerer dynamiquement, mais qui doit pas faire beaucoups de choses)

Pour la maintenance c'est beaucoup plus simple.

Ok.
Bon indirectement tu as repondu a ma question... En fait je n'ai qu'une form mais plusieurs frame donc plusieurs .pas C'est génrable mais j'aurais souhaité pouvoir mettre un seul . pas pour une frame avec plusieurs autres frames dedans. Bon pas possible alors je v faire autrement...
Merci tout de même.

Citation:

Envoyé par sky13

Ok.
Bon indirectement tu as repondu a ma question... En fait je n'ai qu'une form mais plusieurs frame donc plusieurs .pas C'est génrable mais j'aurais souhaité pouvoir mettre un seul . pas pour une frame avec plusieurs autres frames dedans. Bon pas possible alors je v faire autrement...
Merci tout de même.

je suis un peu surpris par cette attente.

j'utilise parfois les TFrame uniquement pour alléger une fiche, cela permet de déporter dans une nouvelle unité toute une partie du code et de garder des unités de taille humainement compréhensible.

mais ... en quoi ton application est-elle "mieux avec des TFrame" ?

sinon, il doit être possible de mettre tout dans une seule unité avec des
Code:

1 2 3 4 {$R *.DFM} // dans Unit1.PAS c'est Unit1.DFM pour TForm1 {$R Unit2.DFM} // pour TForm2 {$R Unit3.DFM} // pour TForm3
par contre on perd toute possibilité de modifier les fiches dans l'IDE...je ne vois vraiment pas l'intérêt.