ブックマークの使い方

ブックマークを使うと、テーブル内のマークしたレコードにジャンプすることができます。
GetBookmarkメソッドによってブックマークをTBookmark型変数に保存し、GotoBookmarkメソッドによってジャンプを実行します。

　例

unit Main;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, DBTables, StdCtrls, DBCtrls, ExtCtrls;

type
TForm1 = class(TForm)
  Label1: TLabel;
  Label2: TLabel;
  Label3: TLabel;
  btnSetBookmark: TButton;
  btnGotoBookmark: TButton;
  Table1: TTable;
  DBNavigator1: TDBNavigator;
  DataSource1: TDataSource;
  DBText1: TDBText;
  DBText2: TDBText;
  DBText3: TDBText;
  procedure FormCreate(Sender: TObject);
  procedure btnSetBookmarkClick(Sender: TObject);
  procedure btnGotoBookmarkClick(Sender: TObject);
private
  { Private 宣言 }
  FBookmark: TBookmark;
public
  { Public 宣言 }
end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

{ フォームが作成されたとき }
procedure TForm1.FormCreate(Sender: TObject);
begin
    Table1.Open;
end;


{ ブックマークを付ける }
procedure TForm1.btnSetBookmarkClick(Sender: TObject);
begin
  FBookmark := Table1.GetBookmark;
  btnGotoBookmark.Enabled := True;
end;

{ ブックマークへ移動 }
procedure TForm1.btnGotoBookmarkClick(Sender: TObject);
begin
  Table1.GotoBookmark(FBookmark);
end;

end.