안녕하세요.
초보입니다.
버튼을 누르면 10분마다 정해진 일을 하는 실제코딩을
아래의 begin/end사이에 좀 넣어주십시오.(full code를)
부탁드립니다,
죄송합니다.
procedure TForm1.Button1Click(Sender: TObject);
begin
/////////////////////////////////////////////////////////////////////
// query해서 테이블을 만들고 그것을 batchmove하는 코딩이 들어 있음.//
/////////////////////////////////////////////////////////////////////
end;
> 안녕하세요.
> 초보입니다.
>
> 버튼을 누르면 10분마다 정해진 일을 하는 실제코딩을
> 아래의 begin/end사이에 좀 넣어주십시오.(full code를)
> 부탁드립니다,
> 죄송합니다.
>
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
>
> /////////////////////////////////////////////////////////////////////
> // query해서 테이블을 만들고 그것을 batchmove하는 코딩이 들어 있음.//
> /////////////////////////////////////////////////////////////////////
>
> end;
코딩시 timer1의 enabled를 false로 선택해 놓아야 합니다.
버튼 클릭시 timer1의 enabled를 true로 해주면
Timer1Timer event가 interval주기로 실행이 됩니다.
procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.interval:=600000; // 1000 이 1초임
timer1.enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
/////////////////////////////////////////////////////////////////////
// query해서 테이블을 만들고 그것을 batchmove하는 코딩이 들어 있음.//
/////////////////////////////////////////////////////////////////////
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
timer1.enabled:=false;
end;
도움이 되셨기를...