heimdal wrote:

> 안녕하세여..헤임달입니다..

>

> 게이지컴포넌트에 관한 내용인데여..

> 20분동안의 진행상황을 보여줄려고합니다..

> 근데..progress := progress + round(j/1200); 부분을 아무리 변화를 줘도 진행도가 똑같습니다..

> 20분동안의 진행상황을 보여줄려면 타이머를 써야하나요??

> 어떻게 고치면 진행상황을 보여줄수가 있을까요??

>

> with main.op_ing3 do

> begin

> Maxvalue := 100;

> progress := 0;

> for j := 1 to 1200 do

> begin

> progress := progress + round(j/1200);

> end;

> end;



어떠한 일로 그렇게 하실려는지는 몰라도 타이머를 않 쓰고 할 수 있습니다.



다음 같이 하면 될꺼 같은데요..



var

i: integer;





with main.op_ing3 do begin

MaxValue := 120;

Progress := 0;

i := 0;

while true do begin

Progress := Progress + 1;

Inc(i);

Application.ProcessMessages;

Sleep(1000);

if i = 120 then

break;

end;

end;