"Делаем ячейки QuantumGrid гиперссылками в Delphi XE2"

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

В статье рассматривается проблема создания гиперссылок в ячейках QuantumGrid (MasterView) для среды разработки Delphi XE2. Пользователь хочет, чтобы при наведении курсора мыши на определенные ячейки, курсор менялся на курсор гиперссылки, а при клике выполнялась определенная действие. Также важно, чтобы изменения курсора не влияли на другие части кода, которые используют курсор часовой стрелки для обозначения выполнения долгих операций.

Решение проблемы

Для решения задачи необходимо переопределить следующие события компонента QuantumGrid:

• onMouseMove - для получения координат X и Y и установки курсора в виде стрелки или стрелочки на гиперссылку;
• onMouseDown - для получения координат X и Y и активации гиперссылки, если она присутствует (возможно, следует вернуться к стрелке? Гиперссылка обычно открывает новое окно, и вызванный код может изменить курсор на часовую стрелку);
• onMouseLeave - сброс курсора на стрелку (событие фактически не доступно, поэтому потребуется обработка сообщений вручную).

В качестве альтернативы можно использовать обработчик сообщения WM_SETCURSOR, который предоставляет возможность изменить курсор при наведении на определенные элементы.

Подтвержденное решение

Пользователь нашел решение, используя свойство Cursor компонента. Он переопределил событие MouseMove, чтобы изменить курсор на crHandPoint, если курсор находится над ячейкой-гиперссылкой, и сохранил предыдущее значение свойства курсора для возврата, если курсор не находится над гиперссылкой. Это решение не влияет на глобальный курсор экрана, который устанавливается в коде, выполняющем долгие операции.

В коде используется класс-перехватчик вместо переопределения самого компонента QuantumGrid. Это позволяет избежать необходимости настройки машин других пользователей и упрощает внедрение решения в конкретное приложение.

TdxMasterView = class(dxMasterView.TdxMasterView)
private
  FDefaultCursor: TCursor;
  procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
  procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
public
  constructor Create(AOwner: TComponent); override;
end;

constructor TdxMasterView.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FDefaultCursor := Cursor;
end;

procedure TdxMasterView.MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  lvHitTestCode: TdxMasterViewHitTestCode;
  lvNode: TdxMasterViewNode;
  lvColumn: TdxMasterViewColumn;
  lvRowIndex, lvColIndex: Integer;
begin
  inherited;
  lvHitTestCode := GetHitTestInfo(Point(X, Y), lvNode, lvColumn, lvRowIndex, lvColIndex);
  if (lvHitTestCode = htContent) and (lvColumn is TMasterViewClickableColumn) then
    TMasterViewClickableColumn(lvColumn).onClickContentCell(lvNode);
end;

procedure TdxMasterView.MouseMove(Shift: TShiftState; X, Y: Integer);
var
  lvHitTestCode: TdxMasterViewHitTestCode;
  lvNode: TdxMasterViewNode;
  lvColumn: TdxMasterViewColumn;
  lvRowIndex, lvColIndex: Integer;
begin
  inherited;
  lvHitTestCode := GetHitTestInfo(Point(X, Y), lvNode, lvColumn, lvRowIndex, lvColIndex);
  if (lvHitTestCode = htContent) and (lvColumn is TMasterViewClickableColumn) then
    begin
      Cursor := TMasterViewClickableColumn(lvColumn).cursorOnMouseOver;
    end
  else
    begin
      Cursor := FDefaultCursor;
    end;
end;

Заключение

Использование свойства Cursor компонента и переопределение событий MouseMove и MouseDown позволяет создать функциональность гиперссылок в ячейках QuantumGrid в Delphi XE2. Это решение позволяет изменять курсор мыши при наведении на определенные ячейки и выполнять действия при клике, не влияя на глобальные изменения курсора в приложении.

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

Проблема заключается в создании гиперссылок в ячейках QuantumGrid для Delphi XE2, где при наведении курсора на ячейку должен меняться курсор на символ гиперссылки, а клик по ячейке должен выполнять определённое действие, при этом изменения должны быть ло

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

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

:: Главная :: Кнопки ::