about bookmater.txt

来自「大量Delphi开发资料」· 文本 代码 · 共 41 行

Setting Bookmarks in a database:


var Bookmark : TBookmark;


procedure TForm1.FormCreate(Sender: TObject);

begin

Bookmark := nil;

end;


procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

if BookMark <> nil then Table1.GotoBookMark(BookMark);

Table1.FreeBookMark(BookMark);

Bookmark := nil;

end;


procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

if Bookmark = nil then

BookMark := Table1.GetBookMark;

end;


Use a DBGrid with this and it looks great.