مشكلة مع مكون raize 6 و Delphi XE2

[medsoft]

السلام عليكم
المشكلة تختصر فيمايلي :عندي form 1 وضعت فيها

- RzGroupeBar1 التى أضفت فيها RzGroupe1 و اثنان من Item
- PageControl1 التى أضفت فيها اثنان من TabSheet

المبدأ سهل حيث قمت باعطاء خاصية visible ل PageControl1 ب "False" لكي عند القيام بتنفيذ البرنامج كل من PageControl1 و TabSheet تكون مخفية.
لكي أقوم باظهار أي من TabSheet مثالا النقر على Item1 تظهر TabSheet1 قمت بوضع الكود الأتي:

كود :

procedure TForm1.RzGroup1Items0Click(Sender: TObject); begin PageControl1.Visible:=true; TabSheet1.TabVisible:=true; TabSheet2.TabVisible:=false; TabSheet3.TabVisible:=false; RzGroup1.Items[RzGroup1.ItemIndex].FontStyle:=[fsBold] end;

السطر الأخير من الكود يعني أنه عند القيام بالنقر على Items1 ال Font Style لهذا الخير يتغير الى "Gras"

المشكلة التي وجهتني هني أنه عند النقر على Items1 لاظهار TabSheet1 يتغير Font Style و يصبح "Gras" لكن عند النقر على Items2 لاظهار TabSheet2 تغير كذالك Font Style و يصبح "Gras"و لكن Font Style ل Items1 يبقى "Gras" حاولت أن أجعل Font Style لهذا الأخير يصبح Normal لكن ماستطعت.

جزاكم الله خيرا.

[Agmcz]

وعليكم السلام
ضع في الحدث on click شيء مثل

كود :

Items1: RzGroup1.Items[1].FontStyle := []; RzGroup1.Items[0].FontStyle := [fsBold]; Items2: RzGroup1.Items[0].FontStyle := []; RzGroup1.Items[1].FontStyle := [fsBold];

[medsoft]

جزاكم الله خيرا ghost-dz الكويد يعمل بشكل جيد بارك الله فيك

[medsoft]

لكي أجعل Items1 بعد عملية النقر لا يستجب للفأرة هل أستعمل خاصية DisabledIdex مع الحفاظ على FontStyle

[Agmcz]

السلام عليكم
الخاصية هده لا توجد في المكون لكن استعمل
في الحدث on click شيء مثل

كود :

Items1: RzGroup1.Items[1].FontStyle := []; RzGroup1.Items[0].FontStyle := [fsBold]; RzGroup1.Items[1].OnClick := RzGroup1Items1Click; RzGroup1.Items[0].FontColor := clHighlight; RzGroup1.Items[0].OnClick := nil; Items2: RzGroup1.Items[0].FontStyle := []; RzGroup1.Items[1].FontStyle := [fsBold]; RzGroup1.Items[0].OnClick := RzGroup1Items0Click; RzGroup1.Items[1].FontColor := clHighlight; RzGroup1.Items[1].OnClick := nil;

[medsoft]

شكرا أخي ghost-dz الكويد يعمل بارك الله فيك