delphi4arab منتديات دلفي للعرب
خطاء فى كود التخفي Invisible - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : خطاء فى كود التخفي Invisible (/showthread.php?tid=6571)



خطاء فى كود التخفي Invisible - تلميذ - 20-11-2014

السلام عليكم و رحمة الله و بركاته

اساتذتى الكرام حياكم الله جميعا

اثناء عملى على برنامج محادثة ماسنجر استخدمت هذا الكود على Check Box لاستخدام خاصية Invisible للمشرف او الادمن اثناء دخول غرفة وهو لا يعمل ولا اعلم اين الخطاء و هل هناك حل بديل ؟
كود :
procedure TBrowseRoomsForm.FormShow(Sender: TObject); begin RoomList.OnDblClick := RoomListDblClick; CategoryTree.Enabled := True; if MainForm.MyPrivilege = 1 then begin chkInvisible.Show; end else chkInvisible.Hide; end;



خطاء فى كود التخفي Invisible - Snyder - 26-11-2014

هل تتحقق من chkInvisible.Checked ؟


خطاء فى كود التخفي Invisible - تلميذ - 27-11-2014

اشكرك اخى الحبيب على اهتمامك لكن انا حاولت بهذا الكود كما ذكرت انت
كود :
MyPrivilege,chkInvisible.Checked);
على اساس شرط ان يكون ليفل المشرف اعلى من ليفل المستخدم العادى
هل هذا الحل صحيح ؟