Ik maak het dynamisch aan en gooi het weg idd.
Het is niet een wissel van een tab (dat gaat goed) maar het gaat om het verwijderen van een frame uit de RzPageControl die in de MainForm staat en de event frame_boekingen_exit uitvoert.
In Delphi 7 gaat dat wel goed, er is een event OnChange, OnChanging en OnPageChange op de RzPageControl die ik heb geprobeerd.
Ik zie geen andere oplossing door om een procedure aan te roepen in de frame_boekingen voor het wissen van een frame zoals hieronder, hoe roep je een procedure in een frame aan vanuit MainForm?
Code:
procedure TFMain.WissenVanSheet(const TSheet: string);
var
iPage :Integer;
begin
if ( RzPageControl_MainMenu.ActivePage.TabIndex = 0 ) then exit;
for iPage := RzPageControl_MainMenu.PageCount - 1 downto 0 do
begin
if (RzPageControl_MainMenu.Pages[iPage].Caption = TSheet) then
begin
if (TSheet = 'BOEKINGEN') then DoeIets;
RzPageControl_MainMenu.Pages[iPage].Free;
RzPageControl_MainMenu.ActivePageIndex := RzPageControl_MainMenu.PageCount - 1;
end;
end;
end;
Originally Posted by
Benno
Geen idee, zou zomaar kunnen ....
Maak je dat spul dynamisch aan en gooi je het meteen weg?
Is er geen beforechange of zo om het op een eerder moment af te vangen? Vind het persoonlijk best gevaarlijk om bewaren van data afhankelijk te maken van een wissel van een tab, maar goed mogelijk heb je daar een goede reden voor.
Bookmarks