oracle基础知识讲义

				unit Bigpas;
				
				interface
				
				uses
				  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
				  ExtCtrls;
				
				type
				  TBigForm = class(TForm)
				    Panel1: TPanel;
				    procedure FormClose(Sender: TObject; var Action: TCloseAction);
				  private
				    { Private declarations }
				  public
				    { Public declarations }
				  end;
				
				var
				  BigForm: TBigForm;
				
				implementation
				
				uses main;
				
				{$R *.DFM}
				//返回主程序时，切换动画窗口
				procedure TBigForm.FormClose(Sender: TObject; var Action: TCloseAction);
				begin
				 with MainForm.MediaPlayer1 do
				  begin
				   Display:=MainForm.Panel1;
				   Play;
				  end;
				end;
				
				end.