타이머 이용하면 되지 않을까요??
Interval에 1000을 넣으면 1초니까...
10초뒤에 작동하게 하려면 Timer의 Intervel에 10000 으로 잡으면 되고..
타이머 프로시저 안에 Form2.Show 라고 하면은 됩니다.
만약 처음의 폼은 사라지고 2번째 폼이 나타나게 하려면...
(Form1 에서는 타이머 부분만 ...)
form1.hide;
form2.show;
timer1.Enabled := false;
(Timer 를 False 안시키면 폼2 종료하면, 처음에 지정해준 시간히 흐르고난뒤 또 창이 뜰겁니다-_-;)
(Form2 에서는 종료시 이벤트롤 사용해야 합니다.)
Form2를 클릭하고 옆에 여러 옵션 조절하는 상자 있자나요..
Caption 이라던가, Name 이런거.. 여기 위쪽 텝에 Events 라는부분이 있어요
여기서 OnClose 부분에 더블클릭하면은 소스 입력창에
아래와 같에 뜹니다.
여기서 중간에 Form1.Close를 님께서 적어 넣으셔야합니다.
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.close;
end;
Form1이 아직 Hide 되어 있으므로
이거 안하면 Form2 종료되어도 프로그램 종료가 되지를 않습니다.
Interval에 1000을 넣으면 1초니까...
10초뒤에 작동하게 하려면 Timer의 Intervel에 10000 으로 잡으면 되고..
타이머 프로시저 안에 Form2.Show 라고 하면은 됩니다.
만약 처음의 폼은 사라지고 2번째 폼이 나타나게 하려면...
(Form1 에서는 타이머 부분만 ...)
form1.hide;
form2.show;
timer1.Enabled := false;
(Timer 를 False 안시키면 폼2 종료하면, 처음에 지정해준 시간히 흐르고난뒤 또 창이 뜰겁니다-_-;)
(Form2 에서는 종료시 이벤트롤 사용해야 합니다.)
Form2를 클릭하고 옆에 여러 옵션 조절하는 상자 있자나요..
Caption 이라던가, Name 이런거.. 여기 위쪽 텝에 Events 라는부분이 있어요
여기서 OnClose 부분에 더블클릭하면은 소스 입력창에
아래와 같에 뜹니다.
여기서 중간에 Form1.Close를 님께서 적어 넣으셔야합니다.
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form1.close;
end;
Form1이 아직 Hide 되어 있으므로
이거 안하면 Form2 종료되어도 프로그램 종료가 되지를 않습니다.
그럼즐코 하세요~~