1. 개발/실행 플랫폼

(1) OS : Windows10

(2) 개발툴 : Delphi7

 

양병규님, 류종택님 도대체 이게 왜 이런 건지요?

혹시 이글을 보게 되신다면 두 고수님들의 답변을 청해 봅니다.

마우스 더블클릭으로 인한 실행코드의 중복동작을 막기 위해 아래 코드를 만들고 테스트 해보았습니다.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

var
  block : boolean;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

  if block then exit;

  block := true;

  Button1.Enabled := false;
  OutputDebugString('##   Test   ##');
  sleep(5000);

  Button1.Enabled := true;

  bLock := false;

end;

 

end.

그런데, 테스트 결과 도저히 납득이 안되는 이상한 증상이 일어 납니다.

Button1 을 클릭한 후 [비활성화 된 버튼] 위에서 슈팅게임 하듯이 마우스를 마구잡이로 10번정도 재빠르게 눌러 주었습니다.

버튼이 비활성화 된 상황에서 10번정도 클릭을 했기 때문에 제 예상으론 Event Log 에 

"##   Test   ##" 이 문구가 당연히 한번 만 찍힐거라 생각했습니다.

그런데 제 예상을 뒤엎고 결과는 아래와 같이 여러개의 문구가 찍혔습니다.

ODS : ##   Test   ##
ODS : ##   Test   ##
ODS : ##   Test   ##

즉, 버튼이 비활성화 된 상황에서도 코드가 중복실행됐다는 결론입니다.

중복실행을 막기 위해 대부분의 코드를 이런식으로 해 왔는데, 이 결과를 보는 순간 큰일 났다 싶더라구요.

혹시 이 코드가 왜 이런식으로 밖에 작동하지 않는지 제 스스로는 이유를 밝힐 수 없어

두분께 여쭈어 보고자 합니다.

그리고 버턴이 비활성화 된 상황에서 코드의 중복실행을 막을 수 있는 가장 확실하고 간단한 방법이

무엇인지 가르쳐 주실 수 없으신지요?

두 고수분의 답변을 청해 봅니다.