DDE-.
Win32 System (. 41).
:
, . , . . Progressbar, . Timer. .
:
Image1. Align = alTop.
Panel1. Align = alClient.
Progressbar1, Animate1, Timer1, Button1, Image2
Image1 Shape1. Shape = stCircle.
Image2 , \delphi3\demos\data\graphex. Picture .
Enabled Timer1 False, Interval 100.
Visible Progressbar1, False.
COOL.AVI.
OnClick Button1:
procedure TForm1.Button1Click(Sender: TObject);
begin
animate1.FileName:= cool.avi; //
animate1.active:= true; //
progressbar1.Show; // ProgressBar
timer1.Enabled:= true; //
end;
OnTimer Timer1:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
// ProgressBar
Progressbar1.Position:=Progressbar1.Position +1;
if progressbar1.Position >= progressbar1.max then
begin Timer1.enabled:= false;//
Progressbar1.position:= 0; //
Progressbar1.Hide; // ProgressBar
animate1.stop; //
end;
with image1 do // Image
begin
if x> width - 2*shape1.Width then xh:= -1;
if x < 1 then xh:= 1;
x:= x + xh*2; //
shape1.left:= x;
if y > top + height - 2 *shape1.Width then yh:= -1;
if y < top then yh:= 1;
y:= y + yh*10; //
shape1.top:= y;
end;
end;
Onreate :
procedure TForm1.FormCreate(Sender: TObject);
begin
x:=0; y:=96; xh:=1; yh:= -1;
end;
:
x,xh,y,yh,i: integer;
|
|
Samples (. 42) VCL-, Borland. (. 43).
. 42. Samples
:
TGauge . - , , . . ProgressBar.
TColorGrid . 16- .
TSpinButton . , , OnUpClick. OnDownClick.
TSpinEdit . , , .
TDirectoryOutline . . Drives , . Directory . OnChange.
TCalendar Grid .
IBEventAlerter , , .