Disable unidbgrid option

[Vision]

Hi 

i need to disable the option in the right of a dbgrid column.

How can I do it?

tanks a lot

Cris

[Sherzod]

Hi,

UniDBGrid -> Columns[xx] -> Menu -> MenuEnabled = False

[Vision]

Hi 

I need to do it in run time.

in onafterload (tunidbgrid) not work.

tip?

[Sherzod]

On 12/8/2018 at 11:02 PM, cristian said:

I need to do it in run time.

in onafterload (tunidbgrid) not work.

Hi,

Do you want this action for all columns simultaneously, or just for a specific column ?

[Vision]

Hi 

I just need to disable this feature to all column.

 

 

 

 

[Sherzod]

On 12/13/2018 at 2:44 AM, cristian said:

Hi 

I just need to disable this feature to all column.

Hi,

One possible solution:

type
  TExUniCustomDBGrid = class (TUniCustomDBGrid)

  end;

procedure TMainForm.UniButton1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to UniDBGrid1.Columns.Count-1 do
    UniDBGrid1.Columns[I].Menu.MenuEnabled := False;

  TExUniCustomDBGrid(UniDBGrid1).DoConfigureJSColumns(UniDBGrid1.DataSource.DataSet);
end;

 

[Vision]

22 hours ago, Sherzod said:

Hi,

One possible solution:

type
  TExUniCustomDBGrid = class (TUniCustomDBGrid)

  end;

procedure TMainForm.UniButton1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to UniDBGrid1.Columns.Count-1 do
    UniDBGrid1.Columns[I].Menu.MenuEnabled := False;

  TExUniCustomDBGrid(UniDBGrid1).DoConfigureJSColumns(UniDBGrid1.DataSource.DataSet);
end;

 

Perfect!

Tnks so much again