Gauge

[pawelloo]

unit Unit1;



interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Gauges, StdCtrls; 



type 

TForm1 = class(TForm)

Button1: TButton; 

Gauge1: TGauge; 

procedure Button1Click(Sender: TObject); 

private 

{ Private declarations }

public 

{ Public declarations } 

end; 



var 

Form1: TForm1; 



implementation 



{$R *.DFM} 



procedure TForm1.Button1Click(Sender: TObject); 

var 

X : Integer; 

begin 

X := Gauge.Progress; 

X := X + 10; 

Gauge.Progress := X; 

end; 



end.

wiec jest to kodzik prostego progsu ktory robi imitacje instaliki , ale jest problem ... zeby to 10%przybylo trzeba nacisnac na button ,a jak zrobic by samo sie dodawalo to 10 % np. po 5 sek ???

 

[erde]

Zrob sobie petelke np:


while x <= 100 do
begin
X := X + 10;
Gauge.Progress := X ;
sleep(5000); //wstrzymanie programu na 5 sek
end;

Powinno zadzialac.

 

[lol_ek]

Originally posted by pawelloo
wiec jest to kodzik prostego progsu ktory robi imitacje instaliki , ale jest problem ... zeby to 10%przybylo trzeba nacisnac na button ,a jak zrobic by samo sie dodawalo to 10 % np. po 5 sek ???

ladniej bedzie wygladalogdy zrobisz to tak

var x:byte;
begin
for x:=1 to 10 do
begin
Gauge1.Progress:=Gauge1.Progress+1;
Sleep(500);
end;

 

[pawelloo]

co ja moge powiedziec... BIG Thanks

tylko zamiast masz

for x:=1 to 10 do

lepiej 100 zamiast 10 ale to jak kto chce