dao/DelphiScanner/ParentForm.pas

unit ParentForm;

interface
uses
  Forms;

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

    function GetFormObject() : TForm;

  End;

implementation

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