09-01-2013, 12:46 AM
السلام عليكم و رحمة الله تعالى و بركاته
للسادة الافاضل احتاج الى تغير في الكود المرفق و ذالك باستعمال المكون Mainmenu
اذا امكن من فضلكم
للسادة الافاضل احتاج الى تغير في الكود المرفق و ذالك باستعمال المكون 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;