Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.09;
Скачать: CL | DM;

Вниз

Как вывести Hint или надпись в StatusBar для ячейки DBGrid   Найти похожие ветки 

 
openfire   (2006-02-15 15:08) [0]

Как вывести Hint или надпись в StatusBar для ячейки DBGrid по событию OnMouseMove

есть код такого содержания
procedure TMainForm.DBGrid1MouseMove(Sender: TObject; Shift: TShiftState;
 X, Y: Integer);
var
 Cell: TGridCoord;
begin
StatusBar1.Panels[1].Text:="";
Cell := DBGrid1.MouseCoord(X, Y);
if ((Cell.X < 0) and (Cell.Y < 0)) then
 begin
  Exit;
  StatusBar1.Panels[1].Text:="";
 end
else
  StatusBar1.Panels[1].Text:=DBGrid1.Fields[Cell.Y].AsString;
end;

но попытке передвинуться на вторую строку выскакивает ошибка
EAccessViolation

может быть кто-то решал подобную проблему?

заранее спасибо


 
openfire   (2006-02-15 15:28) [1]

Поправка
увидел чуть ниже пример для DBGrid... он работает...

а как все таки добиться того же самого для DBGridEh?
если использовать пример показанный чуть ниже, то ошибка...



Страницы: 1 вся ветка

Текущий архив: 2006.04.09;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.052 c
3-1139978243
Strech
2006-02-15 07:37
2006.04.09
значение полей по умолчанию


11-1123317561
Serg777
2005-08-06 12:39
2006.04.09
Маска файла *.* и файл без расширения


2-1143207019
Max Ivanych
2006-03-24 16:30
2006.04.09
Как определить активное поле таблицы?


2-1143089073
pkm
2006-03-23 07:44
2006.04.09
Кодирование.


2-1143306036
Gleb
2006-03-25 20:00
2006.04.09
Вот дан исходный модуль.Это программа строит график функции.Помог