자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi tStringGrid 버그 확인 요청
2016.02.01 11:12
안녕하세요?
윈도우즈 10과 시애틀을 이용하고 있습니다.
tStringGrid의 셀을 고르지 않아도 onSelectCell가 작동되는 경우가 있습니다. 버그인지 확인 좀 부탁 드립니다.
아래의 코드를 실행하고
폼 클릭 > 버튼 1 클릭 > 줄 0이 아닌 셀 클릭 > 버튼 1 클릭 ... 을 하면 마지막으로 버튼을 클릭한 때 onselectcell이 실행되는 게 확인됩니다.
procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.RowCount := 5;
end;
procedure TForm1.FormClick(Sender: TObject);
begin
StringGrid1.RowCount := 1;
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
begin
Memo1.Lines.Add(IntToStr(ACol) + ' ' + IntToStr(ARow));
end;
Delphi tStringGrid 버그 확인 요청
2016.02.01 11:12
안녕하세요?
윈도우즈 10과 시애틀을 이용하고 있습니다.
tStringGrid의 셀을 고르지 않아도 onSelectCell가 작동되는 경우가 있습니다. 버그인지 확인 좀 부탁 드립니다.
아래의 코드를 실행하고
폼 클릭 > 버튼 1 클릭 > 줄 0이 아닌 셀 클릭 > 버튼 1 클릭 ... 을 하면 마지막으로 버튼을 클릭한 때 onselectcell이 실행되는 게 확인됩니다.
procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.RowCount := 5;
end;
begin
StringGrid1.RowCount := 5;
end;
procedure TForm1.FormClick(Sender: TObject);
begin
StringGrid1.RowCount := 1;
end;
begin
StringGrid1.RowCount := 1;
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean);
begin
Memo1.Lines.Add(IntToStr(ACol) + ' ' + IntToStr(ARow));
end;
begin
Memo1.Lines.Add(IntToStr(ACol) + ' ' + IntToStr(ARow));
end;
안녕하세요. 저도 적어주신 순서대로 테스트 진행해 봤습니다.
하지만, 이상하게도 마지막 버튼1 클릭 시 OnSelectCell 이벤트가 발생하지 않습니다.
저는 윈도우 10 + RAD Studio 10 시애틀 업데이트 1(23.0.21418.4207)에서 테스트 진행했습니다.
만약, 계속 발생하시면 다른 속성 또는 이벤트를 살펴보시거나, OnSelectCell의 CanSelect 파라메터를 False로 설정해 선택을 막으실 수 있습니다.