StringGrid - Reihen - Spalten - Schnittpunkt Markieren

[axellang]

Hallo,

zB. senkrecht markieren in MouseMove.
Aber wie gesagt, beide krieg ich nicht hin.

//TEST

Delphi-Quellcode:

procedure TfrmKeyCard.SGMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var
  GR : TGridRect;
  aCol, aRow : LongInt;
begin
  (* Returns the column and row of the cell at the 
     position with screen coordinates (X,Y) *)
  SG.MouseToCell(X,Y,aCol,aRow);
  if (aCol = 0) or (aRow = 0)  then
    Exit;

 // Grid Select
 GR.Left       := aCol;
 GR.Top        := 1;
 GR.Right      := aCol;
 GR.Bottom     := aRow;
 SG.Selection  := GR;

end;

Axel