home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue49 / Factory / FReportAbstract.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-06-19  |  897 b   |  44 lines
  1. {* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
  2.   TechInsite Pty. Ltd.
  3.   PO Box 429, Abbotsford, Melbourne. 3067 Australia
  4.   Phone: +61 3 9419 6456
  5.   Fax:   +61 3 9419 1682
  6.   Web:   www.techinsite.com.au
  7.   EMail: peter_hinrichsen@techinsite.com.au
  8.  
  9.   Created: 01/06/1999
  10.  
  11.   Notes: Abstract report for factory demo
  12.  
  13. * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *}
  14.  
  15. unit FReportAbstract;
  16.  
  17. interface
  18.  
  19. uses
  20.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  21.   ExtCtrls, StdCtrls, Buttons;
  22.  
  23. type
  24.   TFormReportAbstract = class(TForm)
  25.     MemoReport: TMemo;
  26.     bbCancel: TBitBtn;
  27.   private
  28.     { Private declarations }
  29.   public
  30.     procedure Execute ; virtual ;
  31.   end;
  32.  
  33. implementation
  34.  
  35. {$R *.DFM}
  36.  
  37. procedure TFormReportAbstract.Execute;
  38. begin
  39.   ShowModal ;
  40. end;
  41.  
  42. end.
  43.  
  44.