Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[15219] Re:델파이 프로그레스바 끝나고 다음 폼으로 넘어가는 방법을 모르겠습니다..
DigitalNomad [] 2310 읽음    2014-06-25 11:34
소스 참고하세요.
타이머 이벤트가 계속 실행이 되니 그런 현상이 발생한 겁니다.
수고하세요.

procedure TFomr1.Timer1Timer(Sender: TObject);
: begin
:   progressbar1.Position := progressbar1.Position +1;
:   if Progressvar1.Position = progressbar1.Max then
:   begin
       Timer1.enabled := false; //<-- 소스추가// 타이머 중지를 해야합니다.  타이머가 계속 실행이 되니 계속 폼이 생성되지요..
:      Form2 := TForm2.Create(Application);
:      Caption := IntTostr(Application.ComponentCount);
:     For2.Show;
:   end;
: end;
:
: end.


델파이초보 님이 쓰신 글 :
: 델파이 초보입니다..
: 책이 더복잡하여 여러 자료들을 참고하면서 프로그램을만들고있습니다.
: 메인화면에서 버튼1을 누르면 프로그레스바가 실행되고 다 끝나면 다음창으로 넘어가려고합니다..
:
: 처음에는
:
:
: procedure TFomr1.Timer1Timer(Sender: TObject);
: begin
:   progressbar1.Position := progressbar1.Position +1;
:   if Progressvar1.Position = progressbar1.Max then
:   begin
:      Form2 := TForm2.Create(Application);
:      Caption := IntTostr(Application.ComponentCount);
:     For2.Show;
:   end;
: end;
:
: end.
:
: 이런식으로 하니까 다음창이 무한대로 켜지더라고요..
: 어떻게 하면 한번만 나올까요..?
: 그리고 다음폼이 켜지면 그 전폼은 Close 가 됬으면 하는데..그것도 안됩니다..ㅠㅠ

+ -

관련 글 리스트
15217 델파이 프로그레스바 끝나고 다음 폼으로 넘어가는 방법을 모르겠습니다.. 델파이초보 2103 2014/06/24
15219     Re:델파이 프로그레스바 끝나고 다음 폼으로 넘어가는 방법을 모르겠습니다.. DigitalNomad 2310 2014/06/25
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.