procedure TForm1.Timer1Timer(Sender: TObject);

begin

button1click(button1); //1분이 되면 타이머 이벤트가 발생하여 여기를 실행

//결과적으로 버튼클릭이벤트발생...

end;



procedure TForm1.FormShow(Sender: TObject);

begin

timer1.Interval := 600000; //1분

timer1.Enabled := true;//타이머 작동시작

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

showmessage('a'); //할일...

timer1.Enabled := false; //타이머 비활성화

end;



디자인 할때 타이머 컨트롤을 배치한것은 enable을 false로 설정해 두시고 사용하면

될것같습니다.

정확한 1분을 필요로한다면 정확히 작동할지는 모르겠습니다.

저도 들은 예기지만 오차가 있는걸로 알고 있습니다.

제 컴에서는 큰 오차없이 작동하더군요..

그럼 즐거운 하루 되십시오...



--추가

1분이 지났나를 비교할거라면 위와같은 방법을쓰셔도 될것같습니다.

굳이 변수에 저장을 해서 비교를 하실거면

timer의 interval값을 1000(1초)으로 해 두시고

타이머 이벤트에서 변수값과 현재값(now)을 읽어서 차이를 비교하면

될것같군요...





이수정 wrote:

> 안녕하세요....

>

> (질문1)

> 폼이 보여지고 난뒤, 1분이 지나면, 특정한 일을 (버튼 클릭시 하는 동작....같은거)

> 자동으로 실행해 주도록 하고 싶습니다.

> 그럼, FormShow 에서 처리하면 되는 건가요???

>

> (질문2)

> 그리고, 제가 타이머를 쓸 줄 잘 몰라서 그런데요...

> 먼저 변수1에 현재 시간을 읽어오고, 1분이 지난뒤를 어떻게 알 수 있죠?

>

> 반복문 같은걸 돌린다고 하면.. 그사이에 다른 작업으로 안넘어 가니.. 안될꺼 같고..

>

> 어떤식으로 하는지 아시겠는 분~~~ 좀 알려 주시와요...

>

>

> 제 2가지 질문에 대해서... 답변 부탁드립니다.

>

>

>

nilriri wrote:

> procedure TForm1.Timer1Timer(Sender: TObject);

> begin

> button1click(button1); //1분이 되면 타이머 이벤트가 발생하여 여기를 실행

> //결과적으로 버튼클릭이벤트발생...

> end;

>

> procedure TForm1.FormShow(Sender: TObject);

> begin

> timer1.Interval := 600000; //1분

> timer1.Enabled := true;//타이머 작동시작

> end;

>

> procedure TForm1.Button1Click(Sender: TObject);

> begin

> showmessage('a'); //할일...

> timer1.Enabled := false; //타이머 비활성화

> end;





여기서 false 로 되면.. 안되는거 아닙니까?

그럼.. true 로만 해 놓으면.. 계속 처리하는건지.. 모르겠군요...



아무튼.. 가르켜 주셔서 감사합니다..!!







> 디자인 할때 타이머 컨트롤을 배치한것은 enable을 false로 설정해 두시고 사용하면

> 될것같습니다.

> 정확한 1분을 필요로한다면 정확히 작동할지는 모르겠습니다.

> 저도 들은 예기지만 오차가 있는걸로 알고 있습니다.

> 제 컴에서는 큰 오차없이 작동하더군요..

> 그럼 즐거운 하루 되십시오...

>

> --추가

> 1분이 지났나를 비교할거라면 위와같은 방법을쓰셔도 될것같습니다.

> 굳이 변수에 저장을 해서 비교를 하실거면

> timer의 interval값을 1000(1초)으로 해 두시고

> 타이머 이벤트에서 변수값과 현재값(now)을 읽어서 차이를 비교하면

> 될것같군요...

>

>

> 이수정 wrote:

> > 안녕하세요....

> >

> > (질문1)

> > 폼이 보여지고 난뒤, 1분이 지나면, 특정한 일을 (버튼 클릭시 하는 동작....같은거)

> > 자동으로 실행해 주도록 하고 싶습니다.

> > 그럼, FormShow 에서 처리하면 되는 건가요???

> >

> > (질문2)

> > 그리고, 제가 타이머를 쓸 줄 잘 몰라서 그런데요...

> > 먼저 변수1에 현재 시간을 읽어오고, 1분이 지난뒤를 어떻게 알 수 있죠?

> >

> > 반복문 같은걸 돌린다고 하면.. 그사이에 다른 작업으로 안넘어 가니.. 안될꺼 같고..

> >

> > 어떤식으로 하는지 아시겠는 분~~~ 좀 알려 주시와요...

> >

> >

> > 제 2가지 질문에 대해서... 답변 부탁드립니다.

> >

> >

> >

이수정 wrote:

> nilriri wrote:

> > procedure TForm1.Timer1Timer(Sender: TObject);

> > begin

> > button1click(button1); //1분이 되면 타이머 이벤트가 발생하여 여기를 실행

> > //결과적으로 버튼클릭이벤트발생...

> > end;

> >

> > procedure TForm1.FormShow(Sender: TObject);

> > begin

> > timer1.Interval := 600000; //1분

> > timer1.Enabled := true;//타이머 작동시작

//폼에 배치해서 디자인할때 false였으므로 폼이 생성

//되면서 타이머가 작동하게 하기 위해서....

> > end;

> >

> > procedure TForm1.Button1Click(Sender: TObject);

> > begin

> > showmessage('a'); //할일...

> > timer1.Enabled := false; //타이머 비활성화

//이부분이 빠지면 1분에 한번씩 버튼클릭이벤트가 발생합니다.

//여기서 false로하면 폼이 화면에 그려진후 한번만 실행이 되는거죠

> > end;

>

>

> 여기서 false 로 되면.. 안되는거 아닙니까?

> 그럼.. true 로만 해 놓으면.. 계속 처리하는건지.. 모르겠군요...

>

> 아무튼.. 가르켜 주셔서 감사합니다..!!

>

>

>

> > 디자인 할때 타이머 컨트롤을 배치한것은 enable을 false로 설정해 두시고 사용하면

> > 될것같습니다.

> > 정확한 1분을 필요로한다면 정확히 작동할지는 모르겠습니다.

> > 저도 들은 예기지만 오차가 있는걸로 알고 있습니다.

> > 제 컴에서는 큰 오차없이 작동하더군요..

> > 그럼 즐거운 하루 되십시오...

> >

> > --추가

> > 1분이 지났나를 비교할거라면 위와같은 방법을쓰셔도 될것같습니다.

> > 굳이 변수에 저장을 해서 비교를 하실거면

> > timer의 interval값을 1000(1초)으로 해 두시고

> > 타이머 이벤트에서 변수값과 현재값(now)을 읽어서 차이를 비교하면

> > 될것같군요...

> >

> >