---http://delphi.about.com---
---From:Zarko Gajic---
Bu kod size Cursor’un hangi hücre üzerinde olduğunu ve başlık “titlebar” nasıl değiştirileceğini gösterir:
procedure TForm1.GridMouseMove
(Sender: TObject; Shift: TShiftState; X, Y: Integer) ;
var
pt: TGridcoord;
begin
pt:= Grid.MouseCoord( x, y ) ;
//başlık üzerindeyken cursoru değiştir
if pt.y=0 then
Grid.Cursor:=crHandPoint
else
Grid.Cursor:=crDefault;
If pt.X > 0 Then
Caption := Format( 'col: %d, row: %d, title: %s',
[pt.x, pt.y, Grid.columns[pt.x-1].title.caption] )
Else
Caption := Format( 'col: %d, row: %d',[pt.x, pt.y] ) ;
end;