delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله تعالى وبركاته
لدي في المكون 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. 

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

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

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

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

المشكلة يجب أن تخصص الفورم ( 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

kachwahed

medreg

kachwahed

Rover

medreg