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

السلام عليكم
المشكلة تختصر فيمايلي :عندي 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 لكن ماستطعت.

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

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

كود :
Items1:

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

Items2:

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

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

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

السلام عليكم
الخاصية هده لا توجد في المكون لكن استعمل
في الحدث 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;

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

medsoft

Agmcz

medsoft

medsoft

Agmcz

medsoft