52 lines
995 B
ObjectPascal
52 lines
995 B
ObjectPascal
|
unit uVentanaEspera;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
|
|
Dialogs, StdCtrls, ComCtrls, JvExComCtrls, JvAnimate;
|
||
|
|
|
||
|
|
type
|
||
|
|
TForm1 = class(TForm)
|
||
|
|
JvAnimate1: TJvAnimate;
|
||
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
|
|
procedure FormShow(Sender: TObject);
|
||
|
|
procedure FormHide(Sender: TObject);
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
public
|
||
|
|
{ Public declarations }
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
Form1: TForm1;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
|
|
begin
|
||
|
|
Action := caFree;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TForm1.FormShow(Sender: TObject);
|
||
|
|
begin
|
||
|
|
if not JvAnimate1.Active then
|
||
|
|
JvAnimate1.Active := True;
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TForm1.FormHide(Sender: TObject);
|
||
|
|
begin
|
||
|
|
JvAnimate1.Active := False
|
||
|
|
end;
|
||
|
|
|
||
|
|
initialization
|
||
|
|
// Application.CreateForm(TForm1, Form1);
|
||
|
|
|
||
|
|
finalization
|
||
|
|
{ if Assigned(Form1) then
|
||
|
|
Form1.Close;}
|
||
|
|
|
||
|
|
end.
|
||
|
|
|