Тема: DBGrid и Hint
Показать сообщение отдельно
  #12  
Старый 08.09.2011, 14:30
Аватар для Shoni
Shoni Shoni вне форума
Прохожий
 
Регистрация: 02.09.2011
Адрес: Кострома
Сообщения: 45
Версия Delphi: 7
Репутация: 165
По умолчанию

TfmChild1.DBGrid1CellClick(Column: TColumn) и DBGrid1 при Options dgSelectRow=True теперь уживаются:

Код:
procedure TfmChild1.DBGrid1CellClick(Column: TColumn);
var
MouseX: integer;
MouseY: integer;
pt: TGridCoord;
begin
MouseX:=Mouse.CursorPos.X;
MouseY:=Mouse.CursorPos.Y;
pt:= DBGrid1.MouseCoord(MouseX,MouseY);
 //Showmessage(IntToStr(pt.X));
if pt.X=17 then Hint:=DBGrid1.DataSource.DataSet.FieldByName('Prim').AsString;
if pt.X=18 then Hint:=DBGrid1.DataSource.DataSet.FieldByName('Info').AsString;

end;

Буферизация - очень интересная тема, обязательно к ней вернусь, только картинки к базе прикручу
__________________
Memento Mori(арти)
Ответить с цитированием