مكون AdvOfficePager TMS - نسخة قابلة للطباعة

مكون AdvOfficePager TMS - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مكون AdvOfficePager TMS (/showthread.php?tid=4423)

مكون AdvOfficePager TMS - medsoft - 05-08-2012

السلام عليكم

أردت أن أستعمل في برنامجي مكون 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 فقط, أين الخلل من فظلكم.
شكرا.

مكون AdvOfficePager TMS - medsoft - 06-08-2012

السلام عليكم

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

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

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

مكون AdvOfficePager TMS - medsoft - 07-08-2012

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

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