各位大大好:
小弟用delphi7连接sql2000中的northwind中的Customers
code如下,但是,为什么我每次点dbgrid中下面的recoder,然后按bitbtn后,被点选的recoder都会移到dbgrid的中间去呢?有没有办法能让它保持在原来位置吗?



unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, ADODB, Grids, DBGrids;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOTable1: TADOTable;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
var
bm:Tbookmark;
begin
try
adotable1.DisableControls;
bm:=adotable1.GetBookmark;
adotable1.GotoBookmark(bm);
finally
adotable1.EnableControls;
end;
end;
end.

附加檔案：4b00e78c08dc3_2.JPG

編輯記錄

不怕大大们见笑,这个问题困惑了我很久,查了很多资讯也不得其解,恳请大大们帮助!

这题真的无解吗?
恳请大大们出手相助

先指定
DBGrid1.Options := DBGrid1.Options [dgAlwaysShowSelection];

然後

try
adotable1.DisableControls;
//bm:=adotable1.GetBookmark;
//adotable1.GotoBookmark(bm);
finally
adotable1.EnableControls;
end;
end;

------
額有朝天骨,眼中有靈光

感谢小傑克大大的关注,不过好象不行啊,因为 //bm:=adotable1.GetBookmark;
//adotable1.GotoBookmark(bm);
finally
adotable1.EnableControls;
end;
end;

幫你查了一下，的確，沒有很方便的方式
所以提供幾個方向：
1. 你可以試試看使用 sendmessage 的方式，來處理，畢竟，他還是一個 grid，但無奈沒有設定 visible first 的方式
自己想辦法找，正確的 message，例如，用 grid 用的 message 傳給他，或許，會有一樣反應，值得一試
2. 自己算位置，然後自己去移動 scroll bar (一樣用 message)，將記錄變成第一個顯示的

因為元件，會將當前記錄放在中間左右，是預設行為，客製化會是需要的


===================引 用 luowy651 文 章===================
各位大大好:
小弟用delphi7连接sql2000中的northwind中的Customers
code如下,但是,为什么我每次点dbgrid中下面的recoder,然后按bitbtn后,被点选的recoder都会移到dbgrid的中间去呢?有没有办法能让它保持在原来位置吗?



unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, ADODB, Grids, DBGrids;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOTable1: TADOTable;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
var
bm:Tbookmark;
begin
try
adotable1.DisableControls;
bm:=adotable1.GetBookmark;
adotable1.GotoBookmark(bm);
finally
adotable1.EnableControls;
end;
end;
end.

感谢syntax大大的关注,不过,小弟初学,不是很看得懂

为什么我要这个功能呢?因为我在设计一个销售单,每次,当我想要在单据的下方插入一条recorder时,这条recorder却总是会从下面突然跳到中间去,这让人很不习惯.不知这里的大大们有没有这方面的解决方法

不知道那些商业化的软体是怎么做到这一点的,或许他们有专门的元件吧?