Q&A

  • 시간 계산..
질문 하나....

로그인 폼을 하나 만들었는데요..

그 로그인 버튼을 누루면 로그인이 되는데요..

그 로그인 순간부터 시간이 흘러 이것저것 작업하다가..

마우스가 10분동안 아무일도 하지 않는 순간 다시 로그인 폼을 띄우게 하고 싶은데..

어떻게 하면 되나요..?





1  COMMENTS
  • Profile
    Mr.Q 2000.11.16 09:07
    혹시.. 비슷한 질문을 다른곳에 올리신분 아니신가요?





    var

    tmp:String;



    procedure TForm2.Timer1Timer(Sender: TObject);

    begin

    if tmp = '' then

    Form1.Close

    else

    tmp:='';

    end;



    procedure TForm2.FormCreate(Sender: TObject);

    begin

    tmp:='';

    Timer1.Interval:=10000;

    end;



    procedure TForm2.Edit1KeyPress(Sender: TObject; var Key: Char);

    begin

    tmp:=Key;

    end;



    근데, OnMouseMove, OnKeyPress이벤트마다 다 연결시켜줘야 합니다. -_-"

    그리고, OnMouseMove이벤트에는.. x, y값 변경여부를 Timer1이벤트에다

    연결시켜주면 되겠네요.





    초보 wrote:

    > 질문 하나....

    > 로그인 폼을 하나 만들었는데요..

    > 그 로그인 버튼을 누루면 로그인이 되는데요..

    > 그 로그인 순간부터 시간이 흘러 이것저것 작업하다가..

    > 마우스가 10분동안 아무일도 하지 않는 순간 다시 로그인 폼을 띄우게 하고 싶은데..

    > 어떻게 하면 되나요..?

    >

    >