disabling navigation

VCL TMS VCL UI Pack
1

Is it possible to disable navigation for TAdvStringGrid completely ? It means grid should ignore arrow keys+ home + end + Page Up + Page Down. I am using grid only for calculating layout, I dont want to change coordinate of left top cell. Now if I press for example Page Down, whole grid is scrolled down which is undesirable. Also if I click on narrow area around grid border content is scrolled down which I dont want. I have implemented OnSelectCell event like this:


void __fastcall TForm_LastBatchInfo::Grid1SelectCell(TObject *Sender, int ACol, int ARow,
          bool &CanSelect)
{
   CanSelect = false;
}

nevertheless this happens.

2

If you want to block all interaction, this is some code / event handlers that should do this:


procedure TForm1.AdvStringGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Key := 0;
end;

procedure TForm1.AdvStringGrid1MouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
  Handled := true;
end;

procedure TForm1.AdvStringGrid1MouseWheelUp(Sender: TObject; Shift: TShiftState;
  MousePos: TPoint; var Handled: Boolean);
begin
  Handled := true;
end;

procedure TForm1.AdvStringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  CanSelect := false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  advstringgrid1.RowCount := 100;
  advstringgrid1.ColCount := 15;
  advstringgrid1.RandomFill(false);
  advstringgrid1.ShowSelection := false;
  advstringgrid1.ScrollBars := TScrollStyle.ssNone;
end;