مشكلة في التعامل مع PageControl

[medreg]

السلام عليكم ورحمة الله تعالى وبركاته
لدي في المكون MainMenu1
Facture
وتتكون من جزئين
الجزء الأول Sous-Menu1
يسمى Arabe
الجزء الثاني Sous-Menu2
يسمى Français

ولدي في Form2
PageControl1 و تتكون من ورقتين TabSheet1 و TabSheet2
TabSheet1 تابعة لـ Sous-Menu1
و TabSheet2 تابعة لـ Sous-Menu2

عندما أضغط على Sous-Menu1
يذهب مباشرة الى TabSheet1
وعندما أضغط على Sous-Menu2
يذهب هو أيضًا الى TabSheet1
رغم اني مصرح له بـ TabSheet2
إذا ما هو المشكل في هذا الكود

PHP كود :

procedure TFrmMenu_Principal.Franais1Click(Sender: TObject);
begin
with Form2 do begin
ShowModal;
with PageControl1 do
ActivePage:=TabSheet1;
end;
end;
procedure TFrmMenu_Principal.Arabe1Click(Sender: TObject);
begin
with Form2 do begin
ShowModal;
with PageControl1 do
ActivePage:=TabSheet2;
end;
end;

end. 


[kachwahed]

وعليكم السلام ورحمة الله وبركاته
حاول استخدام ActivePageIndex للـ PageControl
عوضا عن خاصية ActivePage.
بالتوفيق.

[medreg]

جزاكم الله عنا كل خير

لقد استعملت ActivePageIndex عوضا عن ActivePage
لكن نفس المشكل

[kachwahed]

ممكن ترفق المشكل في مشروع جديد؟

[Rover]

المشكلة يجب أن تخصص الفورم ( Form2 ) قبل اظهاره بالمنهج ( ShowModal )

PHP كود :

procedure TForm1.N1Click(Sender: TObject);
begin
with Form2 do begin
with PageControl1 do
ActivePage:=TabSheet1;
ShowModal;
end;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
with Form2 do begin
with PageControl1 do
ActivePage:=TabSheet2;
ShowModal;
end;
end; 


بالتوفيق

[medreg]

جزاكم الله عنا كل خير أخي هذا هو المطلوب
ووفقكم الله لما يحبه ويرضاه آمــــــــــــــــــــين
وصلي اللهم وسلم على سيدنا محمد صلى الله وسلم عليه وعلى آله وصحبه أجمع