home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1996 August
/
VPR9608A.BIN
/
del20try
/
install
/
data.z
/
CHILDWIN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-05-08
|
428b
|
27 lines
unit Childwin;
interface
uses Windows, Classes, Graphics, Forms, Controls;
type
TMDIChild = class(TForm)
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.DFM}
procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
end.