Tpagecontrole
develomagaly
Messages postés
46
Date d'inscription
mercredi 5 octobre 2005
Statut
Membre
Dernière intervention
3 mai 2006
-
31 mars 2006 à 16:02
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 31 mars 2006 à 16:57
Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 - 31 mars 2006 à 16:57
1 réponse
Cirec
Messages postés
3833
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 septembre 2022
50
31 mars 2006 à 16:57
31 mars 2006 à 16:57
Salut,
Alors voilà un petit exemple :
Var
Form1 : TForm1;
TabSheet2 : TTabSheet;
Implementation
procedure TForm1.Button1Click(Sender: TObject);
begin
If TabSheet2 <> Nil Then Exit;
TabSheet2 := TTabSheet.Create(Self);
With TabSheet2 do
Begin
PageControl : = PageControl1;
Caption := 'Teste 1';
End;
end;
Et surtout ne pas oublier de libérer vant de quitter
Par Ex.
dans le OnClose de la form tu écris :
Begin
If TabSheet2 <> Nil Then
TabSheet2.Free;
@+
Cirec
Alors voilà un petit exemple :
Var
Form1 : TForm1;
TabSheet2 : TTabSheet;
Implementation
procedure TForm1.Button1Click(Sender: TObject);
begin
If TabSheet2 <> Nil Then Exit;
TabSheet2 := TTabSheet.Create(Self);
With TabSheet2 do
Begin
PageControl : = PageControl1;
Caption := 'Teste 1';
End;
end;
Et surtout ne pas oublier de libérer vant de quitter
Par Ex.
dans le OnClose de la form tu écris :
Begin
If TabSheet2 <> Nil Then
TabSheet2.Free;
@+
Cirec