Jump to content

Disable unidbgrid option


Vision

Recommended Posts

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;

 

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...