因為我要先使用者選取欄位的整列標示起來因此將dgRowSelect打開,可是這時如果欄位的總長度超過顯示的長度(也就是要拉下面的左右捲軸到右邊),這時如果使用者拉到右邊後選取另外一列的資料,捲軸會自動回到最左邊的地方,使用者要再重新拉一次捲軸才能看到資料,有辦法讓選軸一直停在右邊嗎?? <==思想的極致就是虛無==>

darnell 你好: 試試看.

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids;    type
  TDGrid=class(TCustomGrid);
  TForm1 = class(TForm)
    Database1: TDatabase;
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    procedure Table1BeforeScroll(DataSet: TDataSet);
    procedure DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    LC : integer;
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.Table1BeforeScroll(DataSet: TDataSet);
begin
  LC := TDGrid(DBGrid1).LeftCol;
end;    procedure TForm1.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TDGrid(DBGrid1).FGridState := gsSelecting;
  try
    TDGrid(DBGrid1).LeftCol := LC;
  finally
    TDGrid(DBGrid1).FGridState := gsNormal;
  end;
end;    end.

引言: darnell 你好: 試試看. ......恕刪

謝謝Mickey,不過會有畫面閃動的問題,不知道有沒有辦法解決,我先設visible:=False;再開啟都會有這個問題,有辦法使閃動的影響變到最小嗎?? Thanks~ <==思想的極致就是虛無==>

引言: 不過會有畫面閃動的問題,不知道有沒有辦法解決,我先設visible:=False;再開啟都會有這個問題,有辦法使閃動的影響變到最小嗎??

可能需要動到 TDBGrid 元件, 很深的 Source... 或許可以找找其他 >