转学delphi问题之一:如何实现tdbgrid组件的前几列固定不动？！即水平滚动条拖动时，前几个column不随滚动条滚动？

Question

thanks!,看来delphi真的没有pb和vb好用？还是我只是太菜？thanks for my all friends!

Answer 1

TstringGrid(grdMain).fixedcols := 2;

Answer 2

在dbGrid的OnDrawDataCell事件上写上代码就行了，如：
  if tbTradeDecUDR.IsNull then Exit;
  with TDBGrid(Sender).Canvas do
  begin
    R := Rect;
    R.Left := 0;
    R.Right := 0;
    LeftOffset := 0;
    with TDrawGrid(Sender) do
      for i := 0 to ColCount - 1 do
      begin
        if i = LeftCol then LeftOffset := R.Right;
        Inc(R.Right, ColWidths[i]);
      end;
    OffsetRect(R, -LeftOffset, 16);
    Font.Style := [fsBold];
    Font.Color := clNavy;
    Brush.Style := bsClear;
    S := 'UDR: ' + tbTradeDecUDR.AsString;
    TextOut(4, R.Top, S);
    Font.Color := clBlack;
    TextOut(10 + TextWidth(S), R.Top, tbTradeDecConsignee.AsString);
    Font.Color := clBlue;
    S := tbTradeDecTotal.DisplayText;
    TextOut(R.Right - TextWidth(S) - 6, R.Top, S);
  end;

Answer 3

就因为一个问题你不做做就说delphi真的没有pb和vb好用？？？？？？
Delphi的用户是pb的几十倍
是vb的几倍
到底是谁好用？？？？你自己去想想吧！！！！！！！！！！！！！

Answer 4

就因为一个问题你不会做就说delphi真的没有pb和vb好用？？？？？？
Delphi的用户是pb的几十倍
是vb的几倍
到底是谁好用？？？？你自己去想想吧！！！！！！！！！！！！！

Answer 5

固定的列数 = X-1TStringGrid(DBGrid).FixedCols := X;

Answer 6

sorry!,以后不敢，还要靠大家帮忙呢？

Answer 7

to :Wally_wu(韦利) 
就因为一个问题你不会做就说delphi真的没有pb和vb好用？？？？？？
Delphi的用户是pb的几十倍
是vb的几倍
到底是谁好用？？？？你自己去想想吧！！！！！！！！！！！！！
////////////////////////////
以上的数据你是如何得到的？自己进行过调查？还是某信息咨询公司的ceo?

Answer 8

就单单是CSDN，在Delphi的论坛和pb和vb比较就可以看到。
再者，PB在中国的用户是最大的，我有个在加拿大做开发的朋友说，在他们国家，根本没有什么人会去用PB，PB只能算是一个操作数据库的工具，就好象VFP那样。

Answer 9

就单单从CSDN，的Delphi论坛和pb和vb的火爆程度比较就可以看到。
再者，PB在中国的用户是最大的，我有个在加拿大做开发的朋友说，在他们国家，根本没有什么人会去用PB，PB只能算是一个操作数据库的工具，就好象VFP那样。

Answer 10

给分，习惯问题，只有第一个有分了，平均分配太累了！，希望以后多多帮忙，thanks!