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