為uniDBGrid的序號列加標題

      UniSession.AddJS
    ('MainForm.UniDBGrid1.columnManager.columns[0].setText("選擇")');
  UniSession.AddJS
    ('MainForm.UniDBGrid1.columnManager.columns[1].setText("序號")');

朋友給我的代碼，設置uniDBGrid的序號標題。參考上面的代碼，為了適應uniForm，uniFrame等繼承，改成下面這樣：

對於uniForm，我們在AfterShow事件中處理：

procedure TAddMDTableBase.UniFormAfterShow(Sender: TObject);
begin
  inherited;
  //為Grid的序號列設置標題
  if (dgRowNumbers in UniDBGrid1.Options) then
  begin
       //UniSession.AddJS('MainForm.UniDBGrid1.columnManager.columns[0].setText("選擇")');
       UniSession.AddJS(Self.Name+'.UniDBGrid1.columnManager.columns[0].setText("序號")');
  end;
end;

對於uniFrame，我們要在UniDBGrid1AfterLoad中處理：

procedure TOneTableBase.UniDBGrid1AfterLoad(Sender: TUniCustomDBGrid);
begin
  inherited;
  //為Grid的序號列設置標題
  if (dgRowNumbers in UniDBGrid1.Options) then
  begin
       //UniSession.AddJS('MainForm.UniDBGrid1.columnManager.columns[0].setText("選擇")');
       UniSession.AddJS(Self.Name+'.UniDBGrid1.columnManager.columns[0].setText("序號")');
  end;
end;

最后的顯示結果：

另外，參考上面的代碼，我們還可以設置列的寬度等：

('MainForm.UniDBGrid1.columnManager.columns[0].setWidth(55)');

感謝007的支持！

原文地址：UniDBGrid序號列添加標題 – 汗血寶寶 (hanxuebaobao.com)