20-11-2014, 05:23 PM
السلام عليكم و رحمة الله و بركاته
اساتذتى الكرام حياكم الله جميعا
اثناء عملى على برنامج محادثة ماسنجر استخدمت هذا الكود على Check Box لاستخدام خاصية Invisible للمشرف او الادمن اثناء دخول غرفة وهو لا يعمل ولا اعلم اين الخطاء و هل هناك حل بديل ؟
اساتذتى الكرام حياكم الله جميعا
اثناء عملى على برنامج محادثة ماسنجر استخدمت هذا الكود على 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;