+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكلة مع مكون raize 6 و Delphi XE2 (/showthread.php?tid=4214)
مشكلة مع مكون raize 6 و Delphi XE2 - medsoft - 23-05-2012
السلام عليكم
المشكلة تختصر فيمايلي :عندي 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 لاظهار TabSheet1 يتغير Font Style و يصبح "Gras" لكن عند النقر على Items2 لاظهار TabSheet2 تغير كذالك Font Style و يصبح "Gras"و لكن Font Style ل Items1 يبقى "Gras" حاولت أن أجعل Font Style لهذا الأخير يصبح Normal لكن ماستطعت.
جزاكم الله خيرا.
مشكلة مع مكون raize 6 و Delphi XE2 - Agmcz - 23-05-2012
وعليكم السلام
ضع في الحدث on click شيء مثل
كود :
Items1:
RzGroup1.Items[1].FontStyle := [];
RzGroup1.Items[0].FontStyle := [fsBold];
Items2:
RzGroup1.Items[0].FontStyle := [];
RzGroup1.Items[1].FontStyle := [fsBold];مشكلة مع مكون raize 6 و Delphi XE2 - medsoft - 23-05-2012
جزاكم الله خيرا ghost-dz الكويد يعمل بشكل جيد بارك الله فيك
مشكلة مع مكون raize 6 و Delphi XE2 - medsoft - 23-05-2012
لكي أجعل Items1 بعد عملية النقر لا يستجب للفأرة هل أستعمل خاصية DisabledIdex مع الحفاظ على FontStyle
مشكلة مع مكون raize 6 و Delphi XE2 - Agmcz - 24-05-2012
السلام عليكم
الخاصية هده لا توجد في المكون لكن استعمل
في الحدث 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;مشكلة مع مكون raize 6 و Delphi XE2 - medsoft - 24-05-2012
شكرا أخي ghost-dz الكويد يعمل بارك الله فيك