home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap20 / bookmark / main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-21  |  1.0 KB  |  57 lines
  1. unit Main;
  2.  
  3. { Program copyright (c) 1994 by Charles Calvert }
  4. { Project Name: BOOKMARK }
  5.  
  6. interface
  7.  
  8. uses 
  9.   WinTypes, WinProcs, Classes, 
  10.   Graphics, Forms, Controls, 
  11.   DB, DBGrids, StdCtrls, 
  12.   DBTables, Grids;
  13.  
  14. type
  15.   TForm1 = class(TForm)
  16.     Table1: TTable;
  17.     DataSource1: TDataSource;
  18.     DBGrid1: TDBGrid;
  19.     Mark: TButton;
  20.     Button2: TButton;
  21.     procedure MarkClick(Sender: TObject);
  22.     procedure Button2Click(Sender: TObject);
  23.     procedure FormCreate(Sender: TObject);
  24.   private
  25.     BookMark: TBookMark;
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   Form1: TForm1;
  33.  
  34. implementation
  35.  
  36. {$R *.DFM}
  37.  
  38. procedure TForm1.MarkClick(Sender: TObject);
  39. begin
  40.   if Bookmark = nil then
  41.     BookMark := Table1.GetBookMark;
  42. end;
  43.  
  44. procedure TForm1.Button2Click(Sender: TObject);
  45. begin
  46.   if BookMark <> nil then Table1.GotoBookMark(BookMark);
  47.   Table1.FreeBookMark(BookMark);
  48.   Bookmark := nil;
  49. end;
  50.  
  51. procedure TForm1.FormCreate(Sender: TObject);
  52. begin
  53.   Bookmark := nil;
  54. end;
  55.  
  56. end.
  57.