델파이 클릭, 더블클릭 구분

지적 환영합니다.

 

전역 변수 FTempBool : Boolean;

 

 

procedure TFrm.grdClick(Sender: TObject);
begin
  TThread.CreateAnonymousThread(procedure
    begin
      Sleep(300);
      if FTempBool then
      begin

        구현

       {*****선택사항
        TThread.Synchronize(TThread.CurrentThread, procedure
        begin
          SelectClickEvent();
        end);

        *****선택사항}
      end;
    end).Start;
end;

 

procedure TFrm.grdDblClick(Sender: TObject); 
begin 

  FTempBool := False;

end;

 

procedure TFrm.grdClick(Sender: TObject); 
begin 

  FTempBool := True;

end;

 

혹시 더 좋은방법 있으시면 공유부탁드립니다.ㅠㅠ