Parent Directory | Revision Log
Flyt mere kode ud i selvstændige units
1 | torben | 2705 | 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. |
ViewVC Help | |
Powered by ViewVC 1.1.20 |