Q&A

  • 처음 프로그램이 실행될때 진행상황을 어떻게 보여주어야...
game에서 처럼 처음 프로그램이 Loading될 때 progress bar형식으로 진행상황을 보여 주고 싶은데 비슷한 예를 찾을 수가 없군요..도움 부탁합니다.

1  COMMENTS
  • Profile
    손창근 2000.02.19 20:57
    안녕하세요.. 오공이 입니다...



    기본적으로 스플레쉬 폼에 프로그레시바을 올리고....

    Project File에서... 폼이 loading 될때 프로그레시브의 position을 변화을 시키면

    될거 같네요...



    간단한 예제을 올리죠....

    좀 수정하세요..(position의 변화등)



    program Project1;



    uses

    Forms,

    Unit1 in 'Unit1.pas' {Form1},

    Unit2 in 'Unit2.pas' {Form2},

    Unit3 in 'Unit3.pas' {Form3};



    {$R *.RES}

    begin





    form2 := Tform2.Create(Application); // 스플레쉬 화면 호출

    form2.Show;

    form2.Update;



    form2.ProgressBar1.Position := 20;

    Application.CreateForm(Tform1, form1);

    form2.ProgressBar1.Position := 40;

    Application.CreateForm(TForm3, Form3);



    form2.Hide; // 스플레쉬 화면 감춤

    form2.Free; // 스플레쉬 화면 제거



    Application.Run; // 프로그램 수행



    end.



    조영욱 wrote:

    > game에서 처럼 처음 프로그램이 Loading될 때 progress bar형식으로 진행상황을 보여 주고 싶은데 비슷한 예를 찾을 수가 없군요..도움 부탁합니다.