Bonjour,

Je créé dynamiquement 2 types de frame dans un pagecontrol.
Dans ces frames j'ai un bouton qui me permet de supprimer cette frame (active). (evénement onclick)

Je n'arrive pas à supprimer ces frames en utilisant findcomponent. Comme j'ai des frames de 2 types, je n'arrive pas à utiliser l'activepageindex.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
frm := TFrame2(spagecontrol1.Pages[spagecontrol1.ActivePageIndex].findComponent
    ('FrameC' + IntToStr(spagecontrol1.ActivePageIndex)));
    if Assigned(frm) then
    begin
spagecontrol1.Pages[spagecontrol1.ActivePageIndex].Free;
end;
Merci de votre aide