source: cprs/branches/tmg-cprs/dklang-package-3.01/Examples/MDI/ufMDIChild.pas@ 1641

Last change on this file since 1641 was 468, checked in by Kevin Toppenberg, 16 years ago

CPRS v1.0.26.76

File size: 1.3 KB
RevLine 
[468]1//**********************************************************************************************************************
2// $Id: ufMDIChild.pas,v 1.3 2006/08/05 21:42:34 dale Exp $
3//----------------------------------------------------------------------------------------------------------------------
4// DKLang Localization Package
5// Copyright (c)DK Software, http://www.dk-soft.org/
6//**********************************************************************************************************************
7// This is a child MDI form. Attention: read the comments in Main.pas!
8unit ufMDIChild;
9
10interface
11
12uses
13 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, TntForms,
14 DKLang, StdCtrls, TntStdCtrls;
15
16type
17 TfMDIChild = class(TTntForm)
18 bCancel: TTntButton;
19 lcMain: TDKLanguageController;
20 lSampleMessage: TTntLabel;
21 procedure FormClose(Sender: TObject; var Action: TCloseAction);
22 procedure FormCreate(Sender: TObject);
23 end;
24
25implementation
26{$R *.dfm}
27
28 procedure TfMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
29 begin
30 // Set Action to caFree to destroy the form on close
31 Action := caFree;
32 end;
33
34 procedure TfMDIChild.FormCreate(Sender: TObject);
35 begin
36 Caption := Name;
37 end;
38
39end.
Note: See TracBrowser for help on using the repository browser.