Context Navigation

UCore.pas

Last change on this file was 12, checked in by chronos, 11 years ago
Added: Initialize platform as component.
File size: 555 bytes

Line
1	unit UCore;
2
3	interface
4
5	uses
6	System.SysUtils, System.Classes, ULDPlatform, Vcl.Forms;
7
8	type
9	TDataModuleCore = class(TDataModule)
10	LDPlatform1: TLDPlatform;
11	procedure DataModuleCreate(Sender: TObject);
12	private
13	{ Private declarations }
14	public
15	{ Public declarations }
16	end;
17
18	var
19	DataModuleCore: TDataModuleCore;
20
21	implementation
22
23	uses
24	UFormMain;
25
26	{%CLASSGROUP 'Vcl.Controls.TControl'}
27
28	{$R *.dfm}
29
30	procedure TDataModuleCore.DataModuleCreate(Sender: TObject);
31	begin
32	LDPlatform1.Init;
33	end;
34
35	end.

Note: See TracBrowser for help on using the repository browser.