Как запретить непредвиденный запуск tStringGrid onSelectCell

Question

Я использую окна 10 и сиэтл.

Я пытаюсь изменить tStringGrid.RowCount без запуска события onSelectCell, потому что есть что-то, что нельзя запускать, если ячейка не нажата или не выбрана.

Иногда изменение tStringGrid.RowCount запускает событие tStringGrid onSelectCell. После реализации следующего кода с по умолчанию tStringGrid щелкните форму -> нажмите кнопку -> щелкните любую ячейку, индекс строки которой больше 0 -> щелкните форму снова, а затем событие onSelectCell запускается при последнем нажатии события формы.

Я хочу знать, является ли это ошибкой или я что-то неправильно понимаю. В первом случае мне нужно обходить это, и я могу, и в последнем случае, пожалуйста, дайте мне знать причину решения проблемы.

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    StringGrid1.RowCount := 5; 
end; 

procedure TForm1.FormClick(Sender: TObject); 
begin 
    StringGrid1.RowCount := 1; // at the second time this fires tStringGrid.onSelectCell Event 
end; 

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); 
begin 
    Memo1.Lines.Add(IntToStr(ACol) + ' ' + IntToStr(ARow)); 
end; 

Answer 1

Поведение, о котором вы сообщаете, является естественным. Когда вы уменьшаете количество строк, если вы удаляете строку, содержащую выбранную ячейку, необходимо выбрать новую ячейку. Логика здесь заключается в том, что выбрана ячейка в последней оставшейся строке, а выбранный столбец не изменяется. Поскольку выбрана новая ячейка, запускается событие OnSelectCell.

Это не ошибка. Поведение разумно и, как предусмотрено.

Если вы хотите подавить событие OnSelectCell во время выполнения определенных действий, временно отключите его.

StringGrid1.OnSelectCell := nil; 
try 
    // do stuff that might change the selection 
finally 
    StringGrid1.OnSelectCell := StringGrid1SelectCell; 
end;