مكون AdvOfficePager TMS

[medsoft]

السلام عليكم

أردت أن أستعمل في برنامجي مكون AdvOfficePager من TMS بدلا عن المكون TPageControl حيث قمت بادراج صفحتين داخل المكون AdvOfficePager أين وضعت بقة المكونات داخل الصفحتين الغرض هو عندما أقوم بتنفيذ البرنامج المكون AdvOfficePager يكون مخفيا و عند الضغط مثالا على الزر 1 تظهر الصفحة 1 الكود المستعمل هو :

كود :

procedure TForm1.FormCreate(Sender: TObject); begin AdvOfficePager1.Visible:=false; end;

كود :

procedure TForm1.Button1Click(Sender: TObject); begin AdvOfficePager1.Visible:=true; AdvOfficePager1.ActivePageIndex := 0; end;

المشكلة أنه عندما أقوم بتنفيذ البرنامج و الضغط على الزر 1 تظهر كلتى الصفحتين معا عوض الصفحة 1 فقط, أين الخلل من فظلكم.
شكرا.

[medsoft]

السلام عليكم

لقد قمت بتجربة هذا الكود:

كود :

procedure TForm1.Button1Click(Sender: TObject); begin AdvOfficePager1.Visible:=true; AdvOfficePager1.AdvPages[1].TabVisible:=true; AdvOfficePager1.ActivePageIndex := 1; end;

فعلا اشتغل معي البرنامج لكن المشكلة أنه في بعض الأحيان عند غلق الصفحة 1 من خلال زر يوجد في التبويب onglet ثم فتحها من جديد لا تعمل ما الحل من فضليكم.

[medsoft]

الحمد لله وجدت الكود

كود :

AdvOfficePager1.Visible:=true ; if AdvOfficePager1.AdvPages[1].TabVisible=true then begin AdvOfficePager1.ActivePageIndex := 1; end else AdvOfficePager1.AdvPages[1].TabVisible:=true; AdvOfficePager1.ActivePageIndex := 1;