Поиск:

Ответ в темуСоздание новой темы Создание опроса
> как сделать hint у контрола грида? что бы всплывало содердимое поля 
:(
    Опции темы
Cashey
Дата 18.5.2009, 10:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бессмертный
****


Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: нет
Всего: 60
ну собственно САБЖ.
свойства hint ни у TTable.Column ни у TGrid.Column я не нашел....


--------------------
библия учит любить ближнего, а камасутра обучает как именно
PM Jabber   Вверх
insoft
Дата 18.5.2009, 11:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 196
Регистрация: 14.2.2007
Где: Тюменская область , г.Тобольск

Репутация: 3
Всего: 3
используй cxGrid (DevExpress) ну или хотя бы EhLib
PM MAIL WWW   Вверх
Cashey
Дата 18.5.2009, 11:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бессмертный
****


Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: нет
Всего: 60
а еще лучше использовать другую среду разработки, но увы используется то что используется
нашел в DRKB статью (даже 2 одинаковых) про хинт в ячеке грида. но предложенный способ у меня не заработал....


--------------------
библия учит любить ближнего, а камасутра обучает как именно
PM Jabber   Вверх
MetalFan
Дата 18.5.2009, 12:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: нет
Всего: 128
может хинт активировать самому...
ссылки на статьи в дркб покажи, мож там какие ошибки


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Cashey
Дата 18.5.2009, 13:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бессмертный
****


Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: нет
Всего: 60
MetalFan, статья называется "Как вывести Hint для ячейки DBGrid"


--------------------
библия учит любить ближнего, а камасутра обучает как именно
PM Jabber   Вверх
MetalFan
Дата 18.5.2009, 14:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: нет
Всего: 128
и как оно не работает?)


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Cashey
Дата 18.5.2009, 14:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бессмертный
****


Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: нет
Всего: 60
просто, тихо и мирно. нет хинта и все


--------------------
библия учит любить ближнего, а камасутра обучает как именно
PM Jabber   Вверх
MetalFan
Дата 18.5.2009, 14:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: нет
Всего: 128
а выложи тестовый проект, некогда самому делать. если конечно помощь нужна

Добавлено через 16 секунд
з.ы. а ShowHint  у грида включено?


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Cashey
Дата 18.5.2009, 15:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бессмертный
****


Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: нет
Всего: 60
кажется понял в чем трабл в примере из drkb. пример справедлив только тогда когда число столбцов в гриде и таблице совпадает.
в противном случае он получает данные из другого поля и не проходит проверку if len > w then

надо искать иной способ, который в drkb еще не описан


--------------------
библия учит любить ближнего, а камасутра обучает как именно
PM Jabber   Вверх
MetalFan
Дата 18.5.2009, 17:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: нет
Всего: 128
а, так тебе DBGrid нужен? не, тогда я не помощник


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
Cashey
Дата 25.5.2009, 12:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бессмертный
****


Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: нет
Всего: 60
up


--------------------
библия учит любить ближнего, а камасутра обучает как именно
PM Jabber   Вверх
Frees
Дата 25.5.2009, 12:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54
Цитата(Cashey @  18.5.2009,  16:18 Найти цитируемый пост)
просто, тихо и мирно. нет хинта и все

ShowHint := true
hint := '  ';


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
insoft
Дата 25.5.2009, 16:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 196
Регистрация: 14.2.2007
Где: Тюменская область , г.Тобольск

Репутация: 3
Всего: 3
Цитата(Frees @  25.5.2009,  12:42 Найти цитируемый пост)
ShowHint := true
hint := '  '; 

такая вещь покажет хинт именно на весь грид в любом месте, а это не то что надо автору поста...
PM MAIL WWW   Вверх
Rrader
  Дата 25.5.2009, 18:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Inspired =)
***


Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: нет
Всего: 191
Как вариант:
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Grids, DBGrids;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    procedure DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure AppShowHint(var HintStr: String; var CanShow: Boolean;
      var HintInfo: Controls.THintInfo);
  public
    Cell: TGridCoord;
    { Public declarations }
  end;

  TDBGrid = class(DBGrids.TDBGrid)
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.AppShowHint(var HintStr: String; var CanShow: Boolean;
  var HintInfo: Controls.THintInfo);
begin
  if HintInfo.HintControl = DBGrid1 then
    if DBGrid1.Hint <> '' then
    begin
      HintStr := DBGrid1.Hint;
     // HintInfo.HintPos := ...
      HintInfo.CursorRect := TDBGrid(DBGrid1).CellRect(Cell.X, Cell.Y);
    end;
end;

procedure TForm1.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  Text: String;
  DLink: TDataLink;
  OldActiveRec: Integer;
begin
  DBGrid1.Hint := '';
  Cell := DBGrid1.MouseCoord(X, Y);
  with Cell do
    if (X > 0) and (Y > 0) then
    begin
      DLink := TDBGrid(DBGrid1).DataLink;
      if Assigned(DLink) then
      begin
        OldActiveRec := DLink.ActiveRecord;
        try
          DLink.ActiveRecord := Y - 1;
          Text := DBGrid1.Columns[X - 1].Field.Text;
        finally
          DLink.ActiveRecord := OldActiveRec;
        end;
        DBGrid1.Hint := Text;
      end;
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnShowHint := AppShowHint;
  Application.HintPause := 500;
  DBGrid1.ShowHint := True;
end;

end.



--------------------
Let's do this quickly!
Rest in peace, Vit!
PM MAIL Skype   Вверх
Frees
Дата 26.5.2009, 07:45 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2233
Регистрация: 2.12.2005
Где: Екатеринбург

Репутация: 23
Всего: 54
Цитата(insoft @  25.5.2009,  18:37 Найти цитируемый пост)
такая вещь покажет хинт именно на весь грид в любом месте, а это не то что надо автору поста...

это кусок кода который надо дописать в дркб примере

если Hint пустой то событие application.OnHint не приходит...


--------------------
Кольцов Виктор Владимирович
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1015 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.