Salut, voilà, je suis nouveau parmi vous....
j’ai un problème en delphi...
j'ai une forme qui contiens un pagecontrole1 et 3 tabsheet et dans la premère j'appelle un autre tabsheet dynamique qui contient une frame de type TFrame.
le code de création est
mais j'ai pas trouvé la solution pour fermer le tabsheet et la frame.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 procedure Tbreceptf.AdvToolBarButton1Click(Sender: TObject); var Fourniseur: TTabSheet; begin Fourniseur := TTabSheet.Create(Self); Fourniseur.PageControl := PageControl1; Fourniseur.Caption := 'Fourniseur' + intToStr(PageControl1.PageCount); with TFrame3.Create(Self) do begin Name := 'Fourniseur' + intToStr(PageControl1.PageCount); Align := alClient; Parent := Fourniseur; end; end;
pour information, j'ai utilisé free et destroy et ça marche pas.
merci d'avance![]()
![]()
![]()
Partager