Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как вывести Hint или надпись в StatusBar для ячейки DBGrid [D7]

openfire © (2006-02-15 15:08:00)
Как вывести 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:00) [1]
Поправка
увидел чуть ниже пример для DBGrid... он работает...

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »