home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1999 February / DPPCPRO0299.ISO / February / Delphi / Install / DATA.Z / LOOKUP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-06-11  |  682 b   |  41 lines
  1. unit Lookup;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, Mask, DBCtrls, ExtCtrls, DBLookup, Grids, DBGrids, Buttons,
  8.   Menus;
  9.  
  10. type
  11.   TfmLookup = class(TForm)
  12.     MainMenu1: TMainMenu;
  13.     About1: TMenuItem;
  14.     Panel1: TPanel;
  15.     DBNavigator1: TDBNavigator;
  16.     Panel2: TPanel;
  17.     DBGrid1: TDBGrid;
  18.     procedure About1Click(Sender: TObject);
  19.   end;
  20.  
  21. var
  22.   fmLookup: TfmLookup;
  23.  
  24. implementation
  25.  
  26. uses MainData, About;
  27.  
  28. {$R *.DFM}
  29.  
  30. procedure TfmLookup.About1Click(Sender: TObject);
  31. begin
  32.   with TfmAbout.Create(Self) do
  33.   try
  34.     ShowModal;
  35.   finally
  36.     Free;
  37.   end;
  38. end;
  39.  
  40. end.
  41.