DBGRIDEH 的WordWrap  单独进行设置无效 无奈只有在程序 运行起来后 对其进行动态设置

但是即使进行动态设置  也只有数据源打开的情况下 设置才能生效 否则设置 无效 不知道这个bug会什么时候 修复

以下是我的程序中的变通方法:

procedure TfrmMain.Button9Click(Sender: TObject);
var
  I: Integer;
begin
  //DBgridEH 的WordWrap只有在有查询的情况下,设置不自动换行才有效,所以启动的时候先随便查下
  with frmClientDm.TopOrderShow_adoq do
  begin
    Close;
    SQL.Text := 'SELECT * FROM top_order WHERE top_tid = ''我靠''';
    Open;
  end;
  for I := 0 to WeiTopOrderShow.Columns.Count-1 do
  begin
    WeiTopOrderShow.Columns[I].WordWrap := False;
  end;
end;

 

posted on 2013-04-08 16:44  del88  阅读(20)  评论(0)    收藏  举报