TFrame suppression Onclick
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:
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
