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