dao/DelphiScanner/ParentForm.pas

unit ParentForm;

interface
uses
  Forms;

type
  IParentForm = Interface(IInterface)
    procedure LogMessage( msg : string);
    procedure SetPrinterstatusText( txt: string; alert: boolean);

    function GetFormObject() : TForm;

  End;

implementation

end.
1	unit ParentForm;
2
3	interface
4	uses
5	Forms;
6
7	type
8	IParentForm = Interface(IInterface)
9	procedure LogMessage( msg : string);
10	procedure SetPrinterstatusText( txt: string; alert: boolean);
11
12	function GetFormObject() : TForm;
13
14	End;
15
16	implementation
17
18	end.