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

//**********************************************************************************************************************
//  $Id: ufMDIChild.pas,v 1.3 2006/08/05 21:42:34 dale Exp $
//----------------------------------------------------------------------------------------------------------------------
//  DKLang Localization Package
//  Copyright (c)DK Software, http://www.dk-soft.org/
//**********************************************************************************************************************
// This is a child MDI form. Attention: read the comments in Main.pas! 
unit ufMDIChild;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, TntForms,
  DKLang, StdCtrls, TntStdCtrls;

type
  TfMDIChild = class(TTntForm)
    bCancel: TTntButton;
    lcMain: TDKLanguageController;
    lSampleMessage: TTntLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  end;

implementation
{$R *.dfm}

  procedure TfMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
  begin
     // Set Action to caFree to destroy the form on close
    Action := caFree;
  end;

  procedure TfMDIChild.FormCreate(Sender: TObject);
  begin
    Caption := Name;
  end;

end.