用MSFlexGrid不过若DbGrid也能实现这点,我很关猪

解决方案 »

  1.   

    DbGrid肯定能实现,不过怎么实现呢?我忘记了
      

  2.   

    to clp_1234:
      不太理解。。能不能说的具体点呢????
      

  3.   

    用第三方控件吧 InfoPower2000里就有.
      

  4.   

    告诉你一个最简单的方法(甚至可以固定行数不动):重写一个控件,继承自TDBGrid,只需Published其FixedCols、FixedRows即可,其他一切不动。够简单吧?
    加分!!!
      

  5.   

    to lin 
       能否说的具体的,本人是一只菜鸟,而且我希望这是一项可选功能,既可由运行时控制启动和取消这一功能。
      

  6.   

    我觉得最简单的方法是再放一个dbgrid,数据源与之前那个相同,但这个dbgrid只添加固定的列就可以了。
    不过最好还是找个好的第三方控件。
      

  7.   

    to everyone
       谁能帮忙给个第三方控键方面的信息,给100分。急决不食言,在此先谢谢各位了。
    过几天就要交货了,,,,心里那个急呀!!!!!!!!!!!!!
      

  8.   

    用infopower2000中的ipdbgrid就行了,你可在cn.yahoo.com中找ip2000,就有
    ok?
      

  9.   

    我用 Lin(林) 的方法试了,对列起作用,对行不起作用。
    但需要下载数据后再设置FixedCols、FixedRows
    只需published
        property FixedCols;
        property FixedRows; 即可。
      

  10.   

    不过COLUMS有些问题!当移动记录时,标题不能正常显示,不知有什么好办法么?
      

  11.   

    to zwhhwz:
      请问该如何实现呢一定给分 ,好急呀!!!
      

  12.   

    《程序员大本营》里的 ABC5 系列控件非常好用,而且美观,
    其中的一个DBGrid 控件就是能解决你的问题,而且ABC5的 DBNavigator 非常美观,功能也强大
    建议使用 
    或者到 其主页下载 http://www.obsof.com/index.html
    但不提供源代码,所以要设置delphi5 的project菜单中的 option 中的 packages 中
    runtime packed 为true,还有什么问题请email 我。
    [email protected]
      

  13.   

    procedure TForm1.FormCreate(Sender: TObject);
    begin
      TStringGrid(DBGrid1).FixedCols := 3;
    end;
                             
      

  14.   

    to quark:
       不过COLUMS有些问题!当移动记录时,标题不能正常显示,不知有什么好办法么? 
      

  15.   

    to dnazj(基因工厂) :
      谢谢,我看看,一定会给你分的。继续加分
      

  16.   

    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      StdCtrls, Grids, DBGrids, Db, DBTables;
    type
      TForm1 = class(TForm)
        DataSource1: TDataSource;
        Table1: TTable;
        DBGrid1: TDBGrid;
        Button1: TButton;
        Label1: TLabel;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;type
        Tfake=class(TDBGrid);
    var
      Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
    begin
    Tfake(DBGrid1).FixedCols:=2;
    Tfake(DBGrid1).FixedRows:=2;
    end;end.
    看一下<<delphi高级开发指南>>有说明
      

  17.   

    我有个愚蠢的,如果你一时找不到好的办法,你可一借鉴。
    你再用一个dbgrid只装前两列,以前哪个装后面的把两个DBGRID关联起来,就可以同时操作他们了。
    请大家别笑我,我就不喜欢钻代码!现在机器这么先进,干什么为了一点点想破头啊!