Q&A

  • 이미지 클릭을 두개 눌렀을때
이미지를 두개 눌렀을때마다 클릭 횟수를 체크하려합니다.

1  COMMENTS
  • Profile
    parkisu 2001.01.08 09:23
    나그네 wrote:

    > 이미지를 두개 눌렀을때마다 클릭 횟수를 체크하려합니다.



    전역변수를 하나 두고 이미지가 눌릴 때마다 두개를 눌렀는지 체크한후 두개를 눌렀으면 횟수를 증가시키면 되겠죠.



    var

    SelectCount, ClickCount:Integer;

    {...}



    procedure TForm1.FormCreate(Sender:TObject);

    begin

    SelectCount:=0; ClickCount:=0;

    end;



    procedure TForm1.Image1Click(Sender:TObject);

    begin

    SelectCount:= SelectCount+1; //or Inc(SelectCount);

    if SelectCount=2 then begin //두개 눌렀으면 변수 초기화, 클릭횟수 증가

    Inc(ClickCount);

    SelectCount:=0;

    end;

    end;



    테스튼 못해봐서 정확하게 동작하는지는 모르겠지만, 어쨋든 이런 식으로 하시면 될 겁니다.