Возможность настройки обработки двойного клика в столбцах DrawGrid для открытия модального диалога и переключения значений в Delphi и Pascal

Delphi , Компоненты и Классы , TStringGrid и TDrawGrid

В разработке приложений на Delphi часто возникает необходимость использовать компонент TDrawGrid для отображения табличных данных с различным поведением для разных столбцов. В этой статье рассмотрим, как реализовать разную обработку двойного клика для различных столбцов DrawGrid, где в одних столбцах будет происходить переключение значений (например, включение/выключение), а в других - открытие модального диалога для редактирования данных.

Проблема двойного клика в DrawGrid

Как правильно отметил пользователь Vandrovnik, основная сложность заключается в том, что событие OnDblClick возникает на более высоком уровне иерархии элементов управления, поэтому невозможно просто запретить его обработку для определенных столбцов. Необходимо реализовать собственную логику проверки, в каком столбце произошел двойной клик.

Решение с использованием MouseToCell/MouseCoord

Как предложил PeaShooter_OMO, наиболее надежным способом является использование методов MouseToCell или MouseCoord для определения точного местоположения курсора в момент двойного клика.

Вот пример реализации:

procedure TForm1.DrawGrid1DblClick(Sender: TObject);
var
  Pt: TPoint;
  Cell: TGridCoord;
begin
  Pt := DrawGrid1.ScreenToClient(Mouse.CursorPos);
  Cell := DrawGrid1.MouseCoord(Pt.X, Pt.Y);

  // Проверяем, что клик был внутри допустимых границ
  if (Cell.X >= 0) and (Cell.Y >= 0) then
  begin
    // Столбцы 1-3 - переключение значений
    if (Cell.X >= 1) and (Cell.X <= 3) then
    begin
      ToggleCellValue(Cell.X, Cell.Y);
    end
    // Другие столбцы - открытие диалога
    else
    begin
      ShowEditDialog(Cell.X, Cell.Y);
    end;
  end;
end;

procedure TForm1.ToggleCellValue(ACol, ARow: Integer);
begin
  // Здесь реализация переключения значения в ячейке
  // Например, инвертирование булевого значения
  if DrawGrid1.Cells[ACol, ARow] = 'Да' then
    DrawGrid1.Cells[ACol, ARow] := 'Нет'
  else
    DrawGrid1.Cells[ACol, ARow] := 'Да';
end;

procedure TForm1.ShowEditDialog(ACol, ARow: Integer);
begin
  // Здесь реализация открытия модального диалога
  // для редактирования данных ячейки
  with TEditForm.Create(nil) do
  try
    EditValue := DrawGrid1.Cells[ACol, ARow];
    if ShowModal = mrOk then
      DrawGrid1.Cells[ACol, ARow] := EditValue;
  finally
    Free;
  end;
end;

Учет возможных проблем с задержкой

Как правильно заметил Vandrovnik, при сильной загрузке системы курсор может успеть переместиться до выполнения обработчика OnDblClick. Для решения этой проблемы можно:

1. Запомнить позицию курсора при первом клике (в событии OnMouseDown):

private
  FLastClickPos: TPoint;

procedure TForm1.DrawGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FLastClickPos := Point(X, Y);
end;

procedure TForm1.DrawGrid1DblClick(Sender: TObject);
var
  Cell: TGridCoord;
begin
  Cell := DrawGrid1.MouseCoord(FLastClickPos.X, FLastClickPos.Y);
  // Дальнейшая обработка...
end;

1. Использовать временную метку для проверки актуальности клика:

private
  FLastClickTime: TDateTime;

procedure TForm1.DrawGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FLastClickPos := Point(X, Y);
  FLastClickTime := Now;
end;

procedure TForm1.DrawGrid1DblClick(Sender: TObject);
var
  Cell: TGridCoord;
begin
  if SecondsBetween(Now, FLastClickTime) < 0.5 then // проверяем, что прошло не более 0.5 секунды
  begin
    Cell := DrawGrid1.MouseCoord(FLastClickPos.X, FLastClickPos.Y);
    // Дальнейшая обработка...
  end;
end;

Альтернативное решение с использованием собственного компонента

Для более сложных сценариев можно создать наследник TCustomDrawGrid с переопределенными методами обработки событий:

type
  TMyDrawGrid = class(TCustomDrawGrid)
  private
    FClickableColumns: TList<Integer>;
  protected
    procedure DblClick; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure AddClickableColumn(ACol: Integer);
    procedure RemoveClickableColumn(ACol: Integer);
  end;

constructor TMyDrawGrid.Create(AOwner: TComponent);
begin
  inherited;
  FClickableColumns := TList<Integer>.Create;
end;

destructor TMyDrawGrid.Destroy;
begin
  FClickableColumns.Free;
  inherited;
end;

procedure TMyDrawGrid.AddClickableColumn(ACol: Integer);
begin
  if not FClickableColumns.Contains(ACol) then
    FClickableColumns.Add(ACol);
end;

procedure TMyDrawGrid.RemoveClickableColumn(ACol: Integer);
begin
  FClickableColumns.Remove(ACol);
end;

procedure TMyDrawGrid.DblClick;
var
  Pt: TPoint;
  Cell: TGridCoord;
begin
  Pt := ScreenToClient(Mouse.CursorPos);
  Cell := MouseCoord(Pt.X, Pt.Y);

  if (Cell.X >= 0) and (Cell.Y >= 0) then
  begin
    if FClickableColumns.Contains(Cell.X) then
      inherited // Разрешаем стандартную обработку для кликабельных столбцов
    else
    begin
      // Вызываем специальное событие для некликабельных столбцов
      if Assigned(FOnCustomDblClick) then
        FOnCustomDblClick(Self, Cell.X, Cell.Y);
    end;
  end;
end;

Заключение

В статье рассмотрены основные подходы к реализации различного поведения при двойном клике в разных столбцах компонента TDrawGrid в Delphi. Основные моменты:

1. Используйте MouseToCell или MouseCoord для точного определения ячейки, по которой был сделан клик
2. Учитывайте возможные задержки при сильной загрузке системы
3. Для сложных сценариев рассмотрите возможность создания собственного компонента-наследника

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

Создано по материалам из источника по ссылке.

В статье рассматривается реализация разной обработки двойного клика в компоненте `TDrawGrid` в Delphi для различных столбцов, предлагая решения с использованием координат мыши, учета задержек и создания собственного компонента.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: TStringGrid и TDrawGrid ::