~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm1.GridMouseMove
(Sender: TObject; Shift: TShiftState; X, Y: Integer) ;
var
pt: TGridcoord;
begin
pt:= Grid.MouseCoord( x, y ) ;
//change the cursor whe over title
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;
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» Retrieving a list of installed Applications on Windows
« How to split a string into an array
