Discussion :

[Vodkha]

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

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;

Ajout texte dans tabsheet actif

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 TFrame2(form1.pagecontrol1.ActivePageIndex).ComboBoxSport6.Text := 'Sport';

Merci de votre aide

[Rayek]

Normal que cela ne fonctionne pas, il te faut utiliser une fonction pour retrouver ton composant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
TFrame2(form1.pagecontrol1.Pages[form1.pagecontrol1.ActivePageIndex].findComponent('MaFrame' + IntToStr(form1.pagecontrol1.ActivePageIndex).ComboBoxSport6.Text := 'Sport';

En général il est mieux de passer par une variable ca fait moins lourd a écrire et ca permet de faire quelques tests au cas où

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
var
  frm : TFrame2;
begin
  frm := TFrame2(form1.pagecontrol1.Pages[form1.pagecontrol1.ActivePageIndex].findComponent('MaFrame' + IntToStr(form1.pagecontrol1.ActivePageIndex));
if Assigned(frm) then
  frm.ComboBoxSport6.Text := 'Sport';
end;

En gros bien sûr, il faut adapter au besoin

[Vodkha]

Merci ça marche impec.