+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيفية الحصول على حقوق المستخدم مع MainMenu (/showthread.php?tid=4853)
كيفية الحصول على حقوق المستخدم مع MainMenu - Anter2010 - 09-01-2013
السلام عليكم و رحمة الله تعالى و بركاته
للسادة الافاضل احتاج الى تغير في الكود المرفق و ذالك باستعمال المكون Mainmenu
اذا امكن من فضلكم
PHP كود :
procedure TForm1.FormCreate(Sender: TObject);
var
tb: TToolButton;
i, iCheck: Integer;
begin
with ToolBar1, CheckListBox1 do
begin
Enabled := False;
for i := 0 to Pred(ButtonCount) do
begin
tb := Buttons[i];
if tb.Style = tbsButton then
begin
iCheck := Items.AddObject(tb.Caption, tb);
Checked[iCheck] := tb.Visible;
end;
end;
Enabled := True;
end;
end;