unit ULoad;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, jpeg, ComCtrls;
type
TFLoad =
class(TForm)
Image1: TImage;
ProgressBar1: TProgressBar;
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
procedure FormActivate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
FLoad: TFLoad;
implementation
{$R *.dfm}
procedure TFLoad.FormActivate(Sender: TObject);
var i : Integer;
// Schleifenvariable
begin
for i:=0
to 25
do
begin
FLoad.AlphaBlendValue:=i * 10;
Application.ProcessMessages;
end;
end;
procedure TFLoad.FormClose(Sender: TObject;
var Action: TCloseAction);
var i : Integer;
// Schleifenvariable
begin
for i:=0
to 25
do
begin
FLoad.AlphaBlendValue:=255 - i * 10;
Application.ProcessMessages;
end;
end;
end.
program Test;
uses
Forms,SysUtils,
...
...
{$R *.res}
begin
Application.Initialize;
Application.Title:='
GM-Praxis2005';
with TFLoad.Create(
nil)
do try
ProgressBar1.Max:=4;
Application.CreateForm(TFAnmeldung, FAnmeldung);
Application.CreateForm(TFMain, FMain);
Application.CreateForm(TDM, DM);
Application.CreateForm(TFPatEdit, FPatEdit);
finally
Free;
end;
Application.Run;
end.