Context Navigation

AppFileManager.pas

Last change on this file was 37, checked in by chronos, 2 years ago
Modified: Simplified unit names.
File size: 425 bytes

Line
1	unit AppFileManager;
2
3	interface
4
5	uses
6	Classes, SysUtils, Forms, Controls, Graphics, Dialogs, OsSystem;
7
8	type
9
10	{ TFormFileManager }
11
12	TFormFileManager = class(TFormTask)
13	procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
14	end;
15
16
17	implementation
18
19	{$R *.lfm}
20
21	{ TFormFileManager }
22
23	procedure TFormFileManager.FormClose(Sender: TObject;
24	var CloseAction: TCloseAction);
25	begin
26	Terminate;
27	end;
28
29	end.
30

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