07-08-2012, 09:25 AM
الحمد لله وجدت الكود
كود :
AdvOfficePager1.Visible:=true ;
if AdvOfficePager1.AdvPages[1].TabVisible=true then
begin
AdvOfficePager1.ActivePageIndex := 1;
end
else
AdvOfficePager1.AdvPages[1].TabVisible:=true;
AdvOfficePager1.ActivePageIndex := 1;
ما في جعبتي نثرت لكم كنانته... الى الملتقى حياكم الله.