《Delphi7编程100例》代码,书配资料

源代码在线查看: unitdll.pas

软件大小: 8914 K
上传用户: fpeisheng
关键词: Delphi7 100 编程 代码
下载地址: 免注册下载 普通下载 VIP

相关代码

				unit UnitDll;
				
				interface
				
				uses
				  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
				
				type
				  TForm1 = class(TForm)
				    procedure FormClose(Sender: TObject; var Action: TCloseAction);
				  private
				    { Private declarations }
				  public
				    { Public declarations }
				    MyParentForm: TForm;
				    MyParentApplication: TApplication;
				  end;
				
				var
				  DllApplication: TApplication;
				
				implementation
				
				{$R *.DFM}
				
				procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
				begin
				   Action:=caFree;
				end;
				
				end.
							

相关资源