Context Navigation

UDockForm.pas

Last change on this file was 73, checked in by chronos, 13 years ago
Modified: Packages are now stored as uncomporessed and are linked with relative path to project.
File size: 592 bytes

Line
1	unit UDockForm;
2
3	{$mode objfpc}{$H+}
4
5	interface
6
7	uses
8	Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
9	UCDClient;
10
11	type
12
13	{ TDockForm }
14
15	TDockForm = class(TForm)
16	CoolDockClient1: TCDClient;
17	Memo1: TMemo;
18	procedure FormDestroy(Sender: TObject);
19	private
20	{ private declarations }
21	public
22	{ public declarations }
23	end;
24
25	var
26	DockForm: TDockForm;
27
28	implementation
29
30	{$R *.lfm}
31
32	{ TDockForm }
33
34	procedure TDockForm.FormDestroy(Sender: TObject);
35	var
36	Temp: string;
37	begin
38	Temp := Name;
39	end;
40
41	end.
42

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