Hello j'ai créé une Tframe en design time :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 type TFrame2 = class(TFrame) GroupBox9: TsGroupBox; Label42: TLabel; Label44: TLabel; EdtNom: TEdit; ComboBoxSport6: TComboBox; Button1: TButton; procedure Button1Click(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end;
J'ai ensuite un page control et 2 boutons qui me permettent de copier la frame dans un new tabsheet et d'ajouter du texte dans un edit du tabsheet actif. Cependant j'ai une violation.....
Création tabsheets
Ajout texte dans tabsheet actif
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 with PageControl1 do tab := TTabSheet.Create(Self); with tab do begin PageControl :=PageControl1; name := 'test'+IntToStr(form1.pagecontrol1.pagecount-1); caption := name; end; with TFrame2.create(form1.pageControl1.Pages[form1.pagecontrol1.pagecount-1]) do begin parent:=(form1.pageControl1.Pages[form1.pagecontrol1.pagecount-1]); Name := 'MaFrame'+IntToStr(form1.pagecontrol1.pagecount-1); align := alClient; end;Merci de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part TFrame2(form1.pagecontrol1.ActivePageIndex).ComboBoxSport6.Text := 'Sport';
Partager