Тема: Подсказки
Показать сообщение отдельно
  #3  
Старый 08.11.2011, 11:41
_taddy _taddy вне форума
Прохожий
 
Регистрация: 27.10.2011
Адрес: Минск
Сообщения: 15
Версия Delphi: 2007
Репутация: 2767
По умолчанию

Можно попробовать что-то типа этого

Код:
//*****  Всплывающая подсказка для столбца *****
procedure TfMain.grMainDBBandedTableView1Column6GetCellHint(
  Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
  ACellViewInfo: TcxGridTableDataCellViewInfo; const AMousePos: TPoint;
  var AHintText: TCaption; var AIsHintMultiLine: Boolean;
  var AHintTextRect: TRect);
begin
  if (ACellViewInfo.Value <> Null) then
    begin
      AHintTextRect.Left := ACellViewInfo.Bounds.Left;
      AHintTextRect.Right := ACellViewInfo.Bounds.Left + 500;
      AHintTextRect.Top := ACellViewInfo.Bounds.Top;
      AHintTextRect.Bottom := ACellViewInfo.Bounds.Top + 500;
      AHintText := ACellViewInfo.Value;
    end;
end;

Но подсказка будет для каждой записи в столбце и для заголовка

Ошибка вышла. Подсказка только для записей.
Ответить с цитированием