function IsCellSelected(StringGrid: TStringGrid; X, Y: Longint): Boolean;
begin
Result := False;
tryif (X >= StringGrid.Selection.Left) and (X <= StringGrid.Selection.Right) and
(Y >= StringGrid.Selection.Top) and (Y <= StringGrid.Selection.Bottom) then
Result := True;
exceptend;
end;
procedure TForm1.Button1Click(Sender: TObject);
beginif IsCellSelected(stringgrid1, 2, 2) then
ShowMessage('Cell (2,2) is selected.');
end;
Here's the translation of the text into Russian:
Функция IsCellSelected
Функция принимает три параметра: StringGrid, экземпляр класса TStringGrid; X и Y, оба целые числа, представляющие индексы столбца и строки ячейки для проверки соответственно.
Функция инициализирует Result в значение False, указывая, что ячейка не выбрана по умолчанию. Затем она пытается проверить, попадает ли данная ячейка (X, Y) в текущий диапазон выбранной области в таблице с помощью следующих условий:
(X >= StringGrid.Selection.Left) and (X <= StringGrid.Selection.Right) - индекс столбца X должен быть больше или равен левому краю выбранного столбца и меньше или равен правому краю выбранного столбца.
(Y >= StringGrid.Selection.Top) and (Y <= StringGrid.Selection.Bottom) - индекс строки Y должен быть больше или равен верхнему краю выбранной строки и меньше или равен нижнему краю выбранной строки.
Если все эти условия истинны, функция устанавливает Result в значение True, указывая, что ячейка действительно выбрана.
Процедура Button1Click
Эта процедура вызывается при клике кнопки с ID 1 (Button1). Она вызывает функцию IsCellSelected с конкретными параметрами:
StringGrid1: экземпляр класса TStringGrid (вероятно, компонент на форме).
2, 2: индексы столбца и строки для проверки соответственно.
Если функция IsCellSelected возвращает True, процедура отображает сообщение об ошибке, указывая, что ячейка (2, 2) выбрана.
Предложения по улучшению
Обработка ошибок: код ловит любые исключения, возникшие во время выполнения функции с помощью блока except, но не обрабатывает конкретные ошибки, связанные с компонентом таблицы (например, попытку доступа к несуществующей ячейке). Рассмотрите добавление более целевого обработки ошибок.
Организация кода: функция IsCellSelected могла быть извлечена в отдельный модуль или файл для лучшей организации кода и повторного использования.
В целом, код компактен и легко понятен, что делает его хорошим стартовым пунктом для реализации проверок выбора ячеек в вашем приложении!
Функция IsCellSelected в Delphi позволяет проверить, выделена ли ячейка TStringGrid, а процедура TForm1.Button1Click отправляет сообщение, если указанная ячейка строкового грида выбрана.
