//dbgCustomSelect - TDBGrid, pmColumns2 - TPopupMenu
| Код |
procedure TfmCustomSelect.MenuItem1Click(Sender: TObject);
begin
ShowHideColumn((sender as TMenuItem).Caption);
end;
|
| Код |
procedure TfmCustomSelect.ShowHideColumn(MenuItemCaption:String);
Var
i,j:Cardinal;
begin
with dbgCustomSelect
do begin
For i := 0 to Columns.Count-1
do begin
For j := 0 to pmColumns2.Items.Count-1
do begin
if Columns[i].Title.Caption = MenuItemCaption//pmColumns.Items[j].Caption
then Columns[i].Visible := not Columns[i].Visible;//pmColumns.Items[j].Checked;
end;//if
end;//for
end;//with
end;//proc
|
| Код |
procedure TfmCustomSelect.pmColumns2Popup(Sender: TObject);
Var
i:Cardinal;
MenuItem : TMenuItem;
begin
with dbgCustomSelect
do begin
//------------------------------------------------------------------------------
//устанавливаем Caption и видимость меню, соответственно сетке
pmColumns2.Items.Clear;
For i := 0 to Columns.Count-1
do begin
MenuItem := TMenuItem.Create(pmColumns2);
MenuItem.Caption := Columns[i].Title.Caption;
MenuItem.Checked := Columns[i].Visible;
----> MenuItem.OnClick := MenuItem1Click; <----------
pmColumns2.Items.Add(MenuItem);
end;//for
end;//with
end;
|
Добавлено @ 17:11
На стадии проектирования меню пустое |
