05-08-2012, 11:17 AM
السلام عليكم
أردت أن أستعمل في برنامجي مكون AdvOfficePager من TMS بدلا عن المكون TPageControl حيث قمت بادراج صفحتين داخل المكون AdvOfficePager أين وضعت بقة المكونات داخل الصفحتين الغرض هو عندما أقوم بتنفيذ البرنامج المكون AdvOfficePager يكون مخفيا و عند الضغط مثالا على الزر 1 تظهر الصفحة 1 الكود المستعمل هو :
المشكلة أنه عندما أقوم بتنفيذ البرنامج و الضغط على الزر 1 تظهر كلتى الصفحتين معا عوض الصفحة 1 فقط, أين الخلل من فظلكم.
شكرا.
أردت أن أستعمل في برنامجي مكون 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;
شكرا.
ما في جعبتي نثرت لكم كنانته... الى الملتقى حياكم الله.